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INTRODUCTION 

The. pfvoQnam pAUznte-d hzAt ivie. &(U out ion. the. Individual who hoA a ipeclilc. 
need am mmd. Becooia a detailed dUciuilon o^ the^e pn.0QHam would /LeqaOie a 
text ieveJuxl time^ the pAe^ent tlze oi thl& Libfuuiy It hat, been omitted. Indi- 
vidually who have a ipeclilc Aequlfiement wilt have to be at lea/,t knowledgeable. 
In the oAdja the pAog/um It, wfutten about; le: Statistical pAog/um& AequlAe the. 
u6eA to be iamltLoA with the tenm mean, median, etc. Tki& l& because the pfvo- 
g/uxm axe wfUtten In the vemaculcvi oi theJA subject mtteA. With tkis know- 
le.dge alone, no pfwg/ummlng ex.peJu.ence on the. pant oi the u&eA li fiequlfved In 
onden. to u&e any oi theMz pftognam In mo&t iyitem. Once It l& determined that 
a paAtlculoA pHjognxm m.y be u&eiul the uAeA mexeZy typej> in a copy oi t/ie BASIC 
&OUACZ code exactly as It appeau In the pfuogfum tUUng. Then ioUow the, In- 
&tAuctionA iofi mmnlng the pHjognam a& pn.ejsented In the Instruction portion oi 
the mite up, Imedlately preceding the program, ktso included in the write up6 
are &tatejnentj> that appeat in the iouAce code which may poMlbly need to be 
changed to run in the useA's computer 6y&tem; le: RWP statements may have to fee 
changed to FRAHD In order to compile In certain systems. 



Due to the numerous copyright infringements incurred on our 
earlier volumes, until further notice we are offering a $200 
REWARD for information leading to the arrest and conviction 
of anyone reproducing or distributing copies of our software 
and/or books or tapes without the EXPRESSED written authori- 
zation of SCIENTIFIC RESEARCH INSTRUMENTS COMPANY, INC. 
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Business & Personal Bookkeeping Programs 
DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 

Computes a lessor's rate of return after taxes. 

Schedules N jobs in a shop with M machines. 
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Bio Cycle 
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Dogfight 
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Judy 
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Pony 

Roulette 

Sky Diver 

Tank 

Teach Me 



Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues, 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/mlssiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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Uses Gaussion Quadrature to do integration. 

Integrates a function by spline fits. 

Calc. and plots RF or Acoustic intensities. 

Calc. Long, and Lat. from interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. 6 min. values of funct. over a spec, interval. 

Calc. position from altitude and azimuth of celestial bodies, 

Calculates Blackbody energies, w/f liter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1. 

Generates random Integers between (X) and (Y) . 

Solves polynomials by "Balrstows Method". 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and Incremental vectors. 

Solves for all parts of any triangle. 

Finds all variables In Basic programs. 

Calc. final position; given start and motion vectors 
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Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on linear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function, 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-distributions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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VOLUME THREE 

Part 5 - Advanced Business Programs 

NAME DESCRIPTION 

Billing Performs posting and billing of accounts. 

Inventory Maintains data for inventory records. 

Payroll Computes payrolls with full set of deductions. 

Risk Performs a risk analysis on capital investments. 

Schedule 2 Performs the most effl. scheduling of men or resources to loca. 

Shipping Solves the problem of scheduling and assignments. 

Stocks Computes the value of stocks. 

Switch Calculates the effects of a bond switch. 
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DESCRIPTION 

An age old favorite. "B9, C23, D4, E13, F21 , BINGO! 
Computes tlie yields for a bond for different periods. 
If you ever dreamed of being a Matador, here's your cliance. 
Take charge of the Enterprise while Capt. Kirk Is on leave- 
Authentic NFL version of this well known sport. 
Calculates long-term predictions of funds. 
Plots the results of Funds 1. 
Ancient Chinese game of chance. 
Plays Blackjack, Las Vegas style. 

Life Is truly a battle for survival, a real challenger! 
Calculates annuities, loans and rrrortgages. 
Generates unique maze puzzles for you to solve. 
Five card draw - for up to 5 players. 
Performs population projections for defined areas. 
Determines the profitability of a firms various depts. 
3-Dlmensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest. 
Calculates your Civil Service Retirement benefits. 
Computes savings plan profiles. 
Calculates repayment schedules for SBA loans. 
An all time favorite for young and old alike. 
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NAME DESCRIPTION 

Andy Cap Draws this famous cartoon character. 

Baseball Plays a full 9 innings of baseball. 

Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrip Provides a description of unl-variant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes Integers as the sum of other Integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers Into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Red Baron 
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Road Runner 

Roulette 

Santa 
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Steel 
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Solves quadratic equations 

Draws a picture of the infamous Red Baron. 

Calculates linear regressions. 

"BeepI Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nicic appears as Jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design, 

(^nerates a "SINGING" Christmas card. 
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A Complete Business System 
NAME DESCRIPTION 



Ledger 



ACBS rev: 80 



Maintains ALL Company accounts and generates financial 

reports. Includes routines for: Pyrl , Inv, Depr, A/R, A/P, 
Balance Sheet and Profit 6 Loss statement , etc. 
Users Manual 
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Chess 

Medbil 

Wdproc 



Designed to challenge the average player, fairly comprehensive. 

Great fun for all, offers a unique opportunity for beginners In 

need of an opponent. 

For Doctors and Dentists alike, a complete patient billing 

system which also permits the maintaining of a patient history 

record. 

Wordprocesslng for lawyers, publishers, writers etc. Write, 

store and change from rough draft to final copy In a variety 

of formats. 
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PREFACE 

The information contained in tliese pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people In widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a polls a census, a test sample or even the number of fish cau™ 
ght on various days. The stat programs will be of Invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs In Parts 1 
and 3. The plotting Is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and 18 stat programs In this section. 

All of the programs presented here may be run by simply typing the source 
code as listed^ exactly as It is. Into your computer. Now before the pro- 
gram will run It will have to be converted into machine code. This Is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working In is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
tems only have BASIC, in these you are O.K. 

Iranediately following Part k is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement Is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
In these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable In virtually any Basic speaking 
computer without any required nradif Ications. 

Volume Ml Is comprised of ADVANCED BUSINESS programs, part 5- This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written In a subset of the Dartmouth language. 
The specific subset Is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found In 
Part 2 — - Games. 
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All of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped** for 
traded, or made public. A few of the original authors of the *'swaps'* are 
not known, for this I apologize. The others, unless specifically mentioned 
In the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation In making this work possible. 
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A Complete Business System is a computer program designed to keep 
all the business records of any company. It allows the user to update 
all company data as well as search through it for specialized entries. 
While it is expressly designed for use by a businessman it can very 
easily be utilized by accountants to maintain company records and prod- 
uce all its financial reports. It is very versatile and can maintain 
records in a variety of formats depending on how the data files are " 
created and how the daily transactions are handled. While it is best to 8 
update the program daily or as each transaction is made, it may be ~" 
updated periodically with no loss in generality. 

At the time of this writing there are only a few Basics that allow 
sufficient precision for business use. Most Basics only allow six to 
eight digits of precision. This is unfortunate for eight digits will 
not allow grand totals to reach $1,000,000.00. For very small business 
this may suffice. but the six digit accuracy Basics are limited to totals 
less then $10,000.00 and most individuals earn more then this annually. 
In addition to this limitation v&v^ few offer formated printing state- 
ments. Those that do use the Print Using statement except for a few 
Basics which uses the Digits statement. Those of you that only have the 
Digits command will have to convert all of the Print Using statements to 
a form accepted by your Basic. This particular conversion will not be 
presented here as most of these Basics are not sufficiently powerful to 
execute data files in reasonable time frames or to allow adequate 
precision for calculations. A suggested method of converting a Print 
Using statement follows: 

ex: Print Using -----, X, Y, 

Remove the Print Using line and substitute the following 
routine each time it is used throughout the programs. 

A — A 

Gosub 

X$ = Af 
Print X$, 
A = Y - 

Gosub 

Y$ = Af 

Print Y$, 

Then this is the Subroutine that the above Gosub' s 

Branch too. 
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2 B = A INT (A) u 
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3 ifBJO then 8 

4 B = A/10 INT (A/lOy 

5 if B J the __ 10 

I__6 A$ = STR$ (A/10) + " .00 " g 

7 Return •-' 

8 A = A/10 5o 

9 Return - 

10 A$ = STR$ (A/10) + " " g 

If the above subroutine will not operate in your Basic use this h 

subroutine: ^ 

_ _ _ 1 A = INT (100 * A + .5)/100 CD 

2 A$ = STR$ (A) ^ 

3 F or I = 1 to 12 ^ 

4 B$ = MID $ (A$, I, 1) o 

5 if B$ = "." then 7 o 

6 Next I ■=> 

7 A$ = MID $ (A$, 1,1+2) 

8 Return 

This first sub is preferred over the second one as in the second 
sub it may be necessary to check for zeros after the decimal point in 
some Basics. 

The programs contained herein use data files. These data files 
should be on a disk system rather then a tape, digital cassette, audio 
cassette or other tape medium due to their slow access and search speeds. 
In addition the disk should have a minimum storage of 250K Bytes as the 
source code requires about 60K Bytes of over head storage. However the 
programs use overlay and paging techniques so they can be run in most 
systems with 16K of free memory. 

The data files in these programs are accessed with the Input #_, 
and Print #_, statements. They are opened for use with the Open "0", _ 
, "File Name" and Open "I", _ , " File Name " as these data files are 
ASCII sequencial. If your Basic uses statements other then these disk 
statements, for data file control, the above should be changed to match 
those in your Basic. These statements are used frequently throughout 
these programs so be sure they all are changed to statements your Basic 
understands. For example P.T. uses the Write #_ instead of the Print #__ 
statement and Read #_ instead of the Input #_ statement. 

The data files are structured to contain the company records in an 
easily accesable form utilizing a minimum number of data files. Now on 
to the programs. They are contained in four sections. If you want to 
do Billing or use the A/R section RUN the program named ACBB. If you 
want to use the Depreciation program RUN the program named ACBD. If 
you want to do Inventory then RUN the program named ACBI. Consequently 
if you want to use the Ledger program RUN ACBL. Before the programs 
are run you should build your data base. A sample data base may be 
generated by running the file creation included in this section. 
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This is a disk interactive version of the Billing program 
that appears in Volume III of this set. This version gen- 
erates the same reports as the program in Volume III except 
it also allows the data base to be updated interactively. 
For sample listings and additional program information the 
reader is referred to the Billing program in Volume III of 
the Basic Software Library. 
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The source code for this program is 8K Bytes long and the 
program will execute in 12K of available memory. While 
most of the Basic statements are fairly straight forward 
the disk I/O calls may not be compatible with your system, 
In this event you will be required to mod these five pro- 
grams to meet the requirements of the Basic that you are 
using. 
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320 F^tEM 

3 Z I'i; i;- M ii< * * * t -K ;;; * >!< t * * 1 1 * $ >k $ $ * * >i< * t * * * 1 1 1 1 tttt t * 1 1 * $ * * * * * * * * * * >{< * * t 

-3 4 D i: M N ( 1. ) J. E $ ( 1 ) ;• A ( .1. ) y N * < J. ) v R i|i ( :l, ) y S $ ( .1 ) y S ( l(^ ) 

-3 5 D :r M A $ ( :l ) y B ( :l. ) !- P ( :l. ) :> IJ ( :l, ) v U $ ( :l, ) 

360 F^EM CFIANGt;: FHE ABOVE SUBSCFriF'TS TO EQUAL YOUF^ NUHBEF;; OF CIJSTOMEF^S 

370 REM >l<***>l<*>l<*>|(******>l<****;M<>{<********ii<5i<****;i<>l<*>i<)K** 

380 OPEN"]:" v#:Ly "BILL." 

390 INPUT*! «N:l. 

400 CLOSE 

410 ST-~!.04 

420 FiJEM S IS THE SALES TAX PEFiJCENTABE 

430 U$::^ "*$#######. .##" 

440 WIDIT-i 80 

450 DEFDBL B 

460 PFMNT 

470 PF^INT " UCC ■■ COPYF^IGFTr BY . SCIENTIFIC RESEAFU:;LI :I 976 " 

•480 PRINT 

490 PRINT 

500 PRINT 

510 PRINT 

520 PRfNT » TF-IIS IS THE BILLING AND ACCOUNTS RECEIVE ABLE PROORAM " 
530 PRINT 
540 PRINT 
"550 PRINT 
560 PRINT "TYPE IN TODAYS DATEv AS? 3/22/75 " ? 
570 INPUT D$ 
580 GOTO 640 

590 INPUTfl y A y N$ k R$ y S% v U y U$ y B 
600 RETURN 
610 IF B^:^^0 THEN 630 
620 INPUT#lyE$yNyA$ySyP 
••63"0 RETURN 
640 PRINT 
650 PRINT 
660 PRINT 
670 PItFNT 
6E.iO PRINT 
690 PRINT 
700 PRINT 

"710 PRINT "THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM" 
720 PRINT "WILL GENERATE, TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKFD," 



100 REM ACBB REV 10 ^ 

110 REM THIS IS THE BILLING AND A/R PROGRAM g 

120 CLEAR 300 ^ 

130 REM FOR FULL MODIFICATIONS LIST THE PROGRAM ^ 

140 REM THIS PROGRAM IS WRITTEN IN BASIC § 

150 REM THE FOLLOWING VARIABLES ARE USED IN THIS PROGRAM [3 

160 REM NF^^^v! UMBER OF CUSTOMERS <^ 

o 

I— I 

Ll. 



170 REM D$^=^Rt;pORT DATE 

ISO REM N(l):-=FTF:rt -ll- 

190 RILM E$(I)^:^^ITEM DESCRIPTION (11 CHARACTERS OR LESS PL.EASE) ^ 

200 REM A<I)=CUSTaMER ACCOUNT # ^ 

2 JO REM N$(I)^:^^CUSTOMER NAME (20 CHARACTERS OR LESS) \^ 

220 R F- M R iii ( I ) ■■^^■- C U S T' M F- R S T R E E T A D D R E S S 

230 REM S$(I)^^=CUST0MER CITY S STATE ADDRESS [:: 

240 REM S(I)^^n.iUANTITY SHIPPED S 



250 REM A$(I):^=DATE SHIPPED u_ 

260 REM EX« 1/7/75 g 

270 REM B(I)^^^:# OF ITEMS PURCHASED BY CUSTOMER ^ 

280 REM P(I)^^:^SELL1NG PRICE (LESS SALES TAX) ^ 

290 REM U(I)^:=CUMULATIVE AMOUNT PAID ON PRESENT SALES g 

300 REM U$(1)^:^:DATE OF LAST PAYMENT o 

310 REM EX, 1/28/75 y 



3 



730 pf<:i:nt 

740 F'RINT 

750 PRINT " 2 •■ PRINT UP BILLS " cc 

760 PRINT " 3 CUSTOMER A/R REIPORT " fe 



1 ■■ 


■• PRINT MAILING LABEL 


2 


•■ PRINT UP BILLS " 


3 ■ 


• CUSTOMER A/R REPORT 


4 ■• 


• SALES REPORT " 


5 - 


•■ LAST PURCHASE REPOR 


6 ■■ 


• UPDATE ACCOUNTS" 


7 •• 


- STOP PROGRAM " 



770 PRINT " 

780 PRINT " 5 - LAST PURCHASE REPORT " i 

790 PRINT " 6 ■■■• UPDATE ACCOUNTS" ^ 

800 PRINT " 7 STOP PROGRAM " fi 

810 PRINT 2 

820 PRINT "WHICH REPORT WOULD YOU LIKE TO RUNt " ? ^ 

830 INPUT R y 

840 PRINT t 

850 IF R=7 THEN 4040 ^ 

860 IF R=^^I THEN 930 lu 



o 

CO 



870 IF R^^^2 THEN 1230 

880 IF R^^^3 THEN 2130 

890 IF R^^^^4 THEN 2500 j::; 

900 IF R^=5 THEN 3080 S 

910 IF R::^^6 THEN 3410 i_ 

920 GOTO 740 g 

930 REM THIS SUB GENERATES THE MAILING LIST S 

940 PRINT ^ 

950 PRINT " THIS IS THE MAILING LIST ROUTINE " g 

960 PRINT o 

970 PRINT "WHEN YOU HAME THE LABELS IN PLACE TYPE A 71 "? ^ 

980 INPUT Z2 

990 Zl^^^^S 

1000 FOR I=^^l TO 71 

1010 PRINT 

1020 NEXT I 

1030 LET Z::^^3 

1040 OPEN" I" I'fly "BILL" 

1050 INPUTtlyNl 

1060 FOR I^^=l TO Nl 

1070 IN P U T fl^ 1 ? A F N $ 1- R $ .» S $ 

1080 PRINT TAB (Z) 5 A 

1090 PRINT TAB<Z) PN$ 

1100 PRINT TAB(Z) PR* 

1110 PRINT TAB(Z) ?S$ 

1120 PRINT 

1130 PRINT 

1140 PRINT 

1150 NEXT I 

1160 CLOSE 

1170 PRINT 

1180 PRINT 

1190 PRINT 

1200 PRINT "END OF THE MAILING LIST rmm " 
^r2T0 "PRINT 

1220 GOTO 640 
^I23"0" R'EM THIS SUB GENERATES THE BILLING LIST #2 

1240 Bl^^-'^O 

1^250 B2^^::0 

1260 BIM) 
'T270""RrH'TF{E"FDRMAT OF THE BILL PRINTINU IS AS FOLLOWS; 

1280 REM PAGE ONE PRINTS THE MAILING ADDRESS 

1290 REM " DATE 

1300 REM ACCOUNT* 
"T31.0 "RETT CUSTOHER^NARE 

1320 REM STREET ADDRESS 
"inU T<Ejr " CITY " " "ST ATE 

1340 REM 

1350 REM 

1360 REM 

1370 REM ITEM* DESCRIPTION QUANTITY DATE SHIPPED UNIT PRICE 

1380 REM »««*««»»»♦ '"A 



.1.390 

.1.400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1300 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1500 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1 7 1 

1 720 

1730 

1740 

1750 

1760 

1770 

1 780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

■1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

I95"0 

1960 

1970 

1980 

'1??'90 

2000 

2010 

2020 

2030 

2040 



KLn **** * ■t * <■ ■* 9 «.» 

REM 

REM 

REM TOTAL AMOUNT PAID ■■^■■■- $ XXX, XX 

REM DATE OF THE LAST PAYMENT 12/21/75 

REM T07AL PIECES SHIPPED XX XX 

REM TOTAL SALES TAX ON SALE == $ XX. XX 

REM TOTAL AMOUNT DUE -- *>K****!|<>I< * XXX. XX r******* 

REM 

PRINT 

PRINT 

PRINI "THIS GENERATES THE PRINTING OF THE BILLS" 

PRINT "WHEN THEr ARE IN PLACE TYPE A 7 S " 5 

INPUT Z 

LET 7.^:^7 

FOR 1==1 TO Z 

PRINT 

NEXT I 

LET Z=18 

0PEN"1" y#: 

FOR 1:^^:1 TO Nl 

I..ET Z2-65 

LET Z^^^^5 

G0SUB590 

TF B=--:0 THEN 2030 

PRINT TAB(Z) yA 

PRINT rAB(Z) ?N$ 

PRINT TAB<Z) iR$ 

PRINT TAB(Z)yS* 

LET Zl^^::4 

FOR I3:::^1 TO Zl 

PRINT 

NEXT 13 

REM THIS IS TO SK 

Z7::^:65 

PRINT TAB(Z7) .0D$ 

PRINT 

FOR Il:=:l rO B 

GOSUB 620 

Z2:=^i$ 

PRINT TAB<Z2)? 

PRINT NyEiliySrAik^P 

Bl^^^^BlfS 

B2=^^:B2-fS*P 

NEXT II 

PRINT 

PRINT "TOTAL AMOUNT PAID 

PRINT "BATE OF LAST PAYMENT 

PRTNT "TOTAL PIECES SHIPPED 

B3=^:B2>!<ST 

B3:-INT(.5H00>i<D3)/100 

PRINT "TOTAL SALES TAX AMT. 

B2=B2-fB3-U(I) 

B2==INT( .5+100*B2)/100 

PRINT "TOTAL AMOUNT DUE 

PRINT ° ******>i<>i<>i<>i< " 

LET Z5==10-B 

FOR 1 6=^:1 TO Z5 

PRINT 

NEXT 16 

REM THIS IS TO SKIP TO THE NEXT BILL HEAD. 

Bl=:tO 

B2=:=0 
B3==0 
NEXT I 

Z:=12 
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DOWN TO THE STATEMENT SECTION OF THE BI1..L 



* " 5 U 
" > Ll$ 
°S!B1 

"5IPRINT USING UHiPBS 

*«*){(*>K)K*)i{)K "5 JPRINTUSING M$P 



B2? 



2050 FOR :[7-:l. TO Z 

2060 pf;;;i:nt 

2070 NEXT 17 

20e0 F'RINT "END OF THE BILL F^'RINTINO SEQUENCE," 

2090 CLOSE 

2.1,00 F'RL'^T 

2:1. JO F'FJINT 

2.1.20 GOTO 640 

2130 REM TI-LIS SUB GENERATES THE CUSf. A/R REPORT #3 

2:i,40 LET'B:L=:0 

21.50 LET B2=:^0 

2.160 LET B.:^^^:^0 

2.170 PRINT 

21 eO PRINT 

2 1.90 PRINT " C U S T M E R S A/R R E P R T "?D$ 

2200 PRINI 

2210 PRINT 

2220 PRINT " ACC# »»" A/R * ">" PAYMENIS";^" LB BATE"v" COST NAME" 

223'" PRINT 

.) >,lO rii'i |\i» I " .. II I y "Hll I. " MNPUTtlcNl 

2/'p',' MIL I i 111 Ni 

WMi I. II' ,ilB ' .' I,) 

>.' '\i II U ', NUN 2 100 

',■?;'■ I iJR M I I B 

■'-'"0 O'r-.HB o '0 

\U>y I ' '.■i:' 

2 1 10 f" r?i( I is'i 

'.)/0 I'' INI f .51 lOO^ 12)/100 
'' •30 U ) B,'l 12 
..•'J40 hIEXI I i 

2350 B3^^<[NT( v5-flOO*B3)/100 
2360 B1=^^B1+B3 U 
2370 B2-B2f-U 

2380 PRINT A?" " 5 i PR JNTUSING Vt^vBI Ui. Us. SPRINT " "?U$5" 'SN$ 

2390 I ET B3^=0 

2400 NEXT I 

2410 PRINT 

2420 PRINT 

2430 PRINT 

24 40 F^' F^ 1 H T " J U T A I.. F^' A Y M E- N T S ■■■■■■■■ " ? S P R 1 N I l.J S I N G $ 5 B 2 

2450 PRINT "TOTAL ACCOUNTS/REC , ■--■■■ "H PR IN FUSING OfSBl 

2460 PRINT 

2470 CLOSE 

2480 PRINT 

2490 GOTO 640 

2500 REM THIS SUB GENERATES THE SALES REPORT BY BATE #4 

2510 LET B1=^K) 

2520 l,..ET B2^^::0 

2530 LET B3^^=0 

2540 PRINT 

2550 PRINT "WOULB YOU I IKE THE SALES REPORT TO COVER A BATE" 

2560 PRINT "OTHER THEN THAT OF; TOBAY (YES OR NO) " ? 

2570 INPUT Y* 

2580 PRINT 

2590 IF Y*:=^"NO" THEN: 2660' 

2600 IF Y$^="N" THEN 2660 

2610 PRINT 

2620 PRINT "INPUT THE SAl ES BATE FOR THIS REPORT "5 

2630 INPUT Of 

2640 PRINT 

2650 GOTO 2680 

2660 LEI Q$=:a:i$ 

2670 PRINT 

2680 PRINT 

2690 PRINT " S A L E S R E P R T F R "5Q$ 

2700 PRINT " TODAYS DATE "5 0$ 
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27:1.0 PRINT 

2720 PRINT " ACC# %" ITEHf'S" OUANTITY %" SAI..EB $ 'S " CD ST NAMF" 

2730 PRINT 

2740 F^' E N " I " . ^11^ 1 . " B I L 1... "JIN 1=' U T ■% 1 . N 1 H 

2750 FOR 1^1 TO Nl z 

2760 GOSliB 590 " 

2770 IF B^^:^0 THEN 2850 

2780 FOR Il-Kl. TO B 

2790 GOSUB 620 

2800 .1:1" «$<.:■ A* THEN 2840 

2 8 .1, F' F^ :i: N T A ? N V S ■' S * I"' S » " J N i|> 

2820 B:i.~-B:L-fS 

2830 B2=^^B2'IS>i<P 

2840 NEX T ,i :L 

2850 NEXT I 

2860 CLOSE 

2870 IF BI<;>0 THEN 2900 

•;'880 PRINT "THERE WAS NO ACTIVITY FOR THAT DATE - TRY Ai.A 1 N 'i- 

2890 GOTO 3000 

2900 PRINT 

2910 PRINT 

2920 PRINI ^ 

2930 PRINT "TOTAL PIECES SOLD THIS HATE J "yBl o 

2940 12^^^B2tS " 

2950 T2^:=INT( <.5} 100*T2)/I00 

2960 PRINT "lOIAL, SALES TAX THIS BAlE J " « : PRTNTI IS 1 NO UfST'? 

2970 T2^^:^T2fB2 

2980 PRINT "TUIAL RECEIPIS THIS DATE i " f J PR INTUS.INO yiMT2 
2990 T2-~0 

3000 PRINT 

3010 PRINT 

3020 PRINT 

3030 PRINT "WOULD YOU LIKE TO CHECH THE SAL.ES FOR ANOTHER DATE X " ■■ 

3040 INPUT Y$ ' ' 

3050 IF Y$::^^"YF3" THEN 2500 

3060 IF Y*=="Y" THEN 2500 

■3070 GOTO 640 

3080 REM THIS SUB GENERATES THE L AS I PORCH A KF RFPORt #5 

;.^090 PL' I NT 

3100 L.ET BI^^^^O 

3110 LET B 2=^:0 

3120 LET B3:n:0 

3130 I FT Zr^^6 

,i:UO FOR I::=:l TO Z 

3'! 50 PRINT 

3:60 NEXT I 

3170 PRINT 

3 .1 8 9 F N " I " y # I y " B 1 1... L. " 1 1 N P U T 1^ :l y N ,1 

3:1.90 PRINT " L. A S T F' U R C H A S E R F P R T "5' 

3200 PRINT I u K I y. 

3210 PRINT 
3220 PRINT 
■3230 PRINT " ACC# "." ITEM* "y" QUANTITY" y" DATE "y" OUST, NAMF" 
3240 PRINT 
3250 FOR I-l TO N:l 
3260 GOSUB 590 
3270 IF S-0 THEN 3300 
3 2 8 P R :i. N r A y N y 8 y A $ y " " i) N $ 
3290 Bl==BlfS*P 
3300 NEXT I 
3310 PRINT 
3320 PRINT 
3330 B1:=^^B1*(1-^S) 
3340 B1-INT( ,5-fI00*Bl)/I00 
-3350 PRINT "TOTAL LAST SALES t "y SPRINT USING V$yB1 
3360 PRINT 



Ijj 



3370 F'F^INT 

3380 FRIHT 

3390 PRINT a 

3400 GOl 640 w 

3410 REH UFTiATTNG SEICTION S 

;'^4yo FOF^ I^^^^l Hi aiF'R:iNnNt:;x'i i i 

3430 P E N " I " -J 1^ I y " B r L L " ; U P E- N " C) " , f- 2 r " B S C !•;; 1 " 1 1 N F' U T 11^ :L s- N 1 ^ 

3440 F-RINr' I YI'E: A ■ - JF YOU ARE- ADDING A NEiiW CUSTOME-R" i3 

3450 F'RINT "TYE-'E: A ■ 1 IF' YOU ARE: UF'DATING AN OL.D ACCOUNT" 

34A0 E'RINT" i YPE: A 2 UHELN YOU ARE: E";[NISHE:D " 

3470 F'RINT? JNEHJI h 

34G0 IF D-'O 'IFIELN 3440 

3490 IF ri.;2 THFiN 3440 

3500 IF Ii:^=l THEN 3540 

35:10 IF li:^^^0 TFIFN 3830 ^ 

:3520 C1..0SE 

3530 GflTG 640 f: 

3540 REM 3 

3550 F'RJNT#2yNJ H 

:,:5560 PR\m "TYPE IN TI-IE CUSTUMER NUMBER "? g 

3570 INPUT N3 S 

3580 FOR I^r^-L fU Nl al 

3590 GCSUB 590 S 

36('0 EF N3=-A rUEN 3680 o 

36 10 GOSUB 40 10 3 

3620 [E B<:1 TFIEN 3660 

3630 FOR I3^^0, TO B 

3640 GOSUB 620-! GUSUB 4020 

3650 NEXT 13 

3660 NFXI 14 

3670 GOSUB 4030 J GOTO 3430 

3680 P R 1 nit P R ]; N I " E N 1 E R J 11 E NUMB E: E^ E- N IE W I Ei; ANSA ( J T 1 N S " i 

3690 XNPUr NG 

3700 Blh:^^B 

3710 B=BfNG 

3/20 GOSUB 4010 

3730 IF BFKl THEN 3750 

3/40 FORIY^^^^I rO Blli GUSUB 620? GOSUB 4020 1 NEXT lY 

3750 PRINTiPRINT "ENTER TEIE FaL.LOWTNG FOR EACH TRANS*" 

3760 PRINT" ITEM DESC, » ITEM # ■' BATE OF TRANS., s- # PURCHASEBi' UNIT PRICE" 

3770 PRINT 

3780 FOR IU:^^:| \Q Ni! 

3790 INPUT EfjNyAfySyP 

3800 GOSUB 4020 

38 10 NEXT lU 

3820 GO 10 3660 

3830 REM 

3840 PRINT#2i'NI-fI 

3850 FOR I^^^^l TO Nl 

3860 GOSUB 590 

3870 GOSUB 4010 

3880 IF B<1 THEN 3930 

3890 FOR 11^^=1 TO B 

3900 GOSUB 620 

3910 GOSUB 4020 

3920 NEXT II 

3930 NEXT I 

3940 PRINT "ENTER THE •■- ACCf v NAME c STREET AD.vCITY ■■ STATE - ZIPi-TOTAL PAID i-DATE 

OF LAST PAYMENT V AND # OF TRANSACTIONS" 

3 9 5 I N !"■ U T A i- N $ y R $ v S $ v U !- U * 9 B 

3960 IF B<1 THEN GOSUB 4030 3 PRINT* GOTO 3430 

3970 F R imt P R I N T " E N T E R T E-l E: T R A N ii) A C 1 1 N D ATA A S t " 

3980 PR INT " DESC . v I TEM# y DA TE , « PURCHASED y UN I T PR I CE " ? PR INT 

3990 FOR 15:^:^1 TO B SINPUTE^yN? A$ i^SH-'IOOSUB 4020INEXT IS 

4000 G S U B 4 3 t G T 3430 

4010 PRINT#2 ? A > N$ P " ]: " 9 R$ P " >. " 5 S$ 5 " 1. " P U P U* P " y " P B J RETURN 



4020 PRlNT*2i.E,$i) " , " 5Ni!A$i) " v " 5 S 5 F' ? RE lUF^N 

4 3 C L. S E: S K I L !.., " B 1 1 1 ,. " ? N A M E " B S C R 1 " AS " B ]: L, I... " t R E T URN 

4040 END 
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This is the depreciation program, it is set up to perform a 
monthly analysis of depreciation. Each item to be depreci- 
ated must be entered, then a depreciation schedule for the 
life of the unit is generated. An example of the print outs 
from the program is shown on the next three pages. Four 
thousand bytes of memory are required for storage and exe- 
cution of this program. 
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IMIS IS TIIE DEF'FiJEClATION F'F;;0GF;;AM IT IS USED TO 
CALCULATE THE MONTHLY riEF'F<ECI AT'ION ON YOUFi EIXED 
ASSETS. ONE AT A I IMF. IIIEN THIS IS SUB TF^ AC TED 
F-ROM IHE COST AND II-IE F^EMAINDEF^ IS THE PF^ESENT 
VALUE, THEN THE AHOUNT OE WEEKLY DEPF^ECIATION IS 
ENTEFdED UNDEFi; ACCOUNT #7000 - F'lXED ASSETS IN THE 
LEDOEF;; F:'F;;OGFi;AM ■■ ACBL, 



WHAF J 3 I ME AMOUNl OE THE INUESTMENT? 318,75 

WHAT IS THE SALVAGE MALUE ? 55,Q() 

WHAT IS IHE DEF'F?ECJ ABLE LIEE ( IN YEAF^S) ? 5 

AT THE END OE WiLICH MONTH (1 THFi;U 12) k AND IN WHAI YEAF;; 
(EG, :F968i IS THE INVESTMENT MADE? 2 
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s Y ri 



:15()\DB 



1977 


/ 


11 


1977 


/ 


3 


1977 


/ 


4 


19 77 


/ 


5 


J,977 


/ 


6 


1977 


/ 


7 


1977 


/ 


8 


1977 


/ 


9 


1977 


/ 


10 


1977 


/ 


1 1 


1977 


/ 


12 



1977 



4,39583 
4,39533 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 

43,9583 






:l 0,625 
10,625 
10,625 
10,625 
10,625 
10,625 
10,625 
10,625 
10,625 
10,625 

106,25 



v 


i„i 








7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 


7,32639 


,025 



6;^639 



o , ,c 6 >;) V 



, 025 



CUM DEP 



43,9583 



106,25 



^3,2639 



(JNDEPR BAL 



219,792 



190,486 



1978 


/ 


i 


1978 


/ 


'? 


1978 


/ 


3 


1978 


/ 


4 


1978 


/ 


5 


1978 


/ 


6 


1970 


/ 


7 


1970 


/ 


8 


1978 


/ 


9 


1978 


/ 


10 


- 1978 


/ 


11 


1978 


/ 


12 


1978 






CUH df: 


rp 




UNDEPF 


; BAL 


1979 


/ 


1 



4,39533 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 

52,75 

96,7083 

167,042 

4,39583 



7 . 


,083 


33 


7 ■ 


,083 


33 


7. 


,083 


33 


7. 


,083 


33 


7. 


,083 


33 


7, 


,083 


33 


7, 


,083 


33 


7< 


,083 


33 


7. 


,08333 


7 . 


,08333 


7< 


,083 


33 


7< 


,083 


33 


a;^ 


~i 




191.2 


5 


72,5 




4, 


.25 





6,10532 
6, 10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 
6,10532 

73,2639 

146.528 

117,222 

4,64005 



/ ■^ / U A-.. V.' 

7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 
7,9625 



95,8 
167,95 



i::; r. 



,57375 



,1.979 / 2 

:l.979 / 3 

:l.979 / 4 

.1.979 / 5 

1979 / 6 

•1979 / 7 

:1.979 / 8 
■1979 / 9 

1979 / 10 
1979 / 11 

1979 / 12 

1979 
CUM DEF' 

unde:pf< bal 

1980 / 1 
1990 / 2 
1980 / 3 
1980 / 4 
1980 / 5 
1980 / 6 
1980 / 7 
1980 ./ 
1980 / 9 
1980 ./ 10 
1980 / 11 

1980 / 12 

1980 

CUM nE::p 

UNDEF'F< BAI.. 

1981 / 1 
1981 / 2 
1981 / 3 
1981 ./ 4 
1981 / 5 
1981 / 6 
1981 / 7 
1981 / a 
1981 /■ 9 
1981 ./ 10 
1981 / 11 
1981 / 12 

1981 

CUM DEF- 



4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 

52,75 

149,453 

114,292 

4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 



202,208 

61,5417 

4.39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 
4,39583 



254,958 



4,25 
4,25 



4,25 


4,25 


4,25 


4,25 


4,25 


4,25 


4,25 


4,25 
/I. ';>!•■; 



94':' ':>!"; 



42,25 



1,79167 
1,79167 
1,79167 
J ,79167 
1,79167 
1,79167 
1,79167 
1,79167 
1,79167 
1,79167 
1,79167 
1,7916./' 



263. 


















.<... \3 xj 1 



4.64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 
4,64005 

55,6806 

202,208 

61,5417 

3,17477 
3,174 77 
3,17477 
3,17477 
3,17477 
3,17477 
3,17477 
3,17477 
3, 17477 
3,17477 
3,17477 
3,17477 

38,0972 

240,306 

23,4444 

1,70949 
1,70949 
1,70949 
1,70949 
1 ,70949 
1,70949 
1,70949 
1,70949 
1,70949 
1,70949 
1,70949 
1,70949 

20,5138 

260,819 



5,57375 
5,57375 
5,57375 
5,57375 
5,57375 
5,57375 
5,57375 



5,57375 
5,57375 
5,57375 



66,885 

162,685 

101 ,065 

3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 
3,90163 

46,8195 



54,2455 

2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 
2,73114 

32,7737 

242,278 
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8,79178 



1982 


7 
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1982 
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1982 
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1982 


/ 
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1982 
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1982 
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1982 
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7 


1982 
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1982 
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1982 
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39583 
.39583 



























2,93054 

1,46527 

1,46527 



















21,4718 

11,4708 

11,4708 



















:i.982 / :i:i. 
















1982 / 12 
















1982 


8.79178 





2.93054 


22.9415 


H-4 


CUM DEP 
UNDEPR BAL 


263.75 



263.75 



263.75 



265.22 



X 

o 

IX 

i3 

CO 

LiJ 



s 

o 






>- 

CL 

o 
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u 
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950 



^ 



:l.0() 
:i. 1 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
2!vi0 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
riB" 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 



PRINT 
PRINT 
REf^ ACBIi REV JO 

REEM THIS 19 THE;; i;ie[pre;;ciation prograh 

PRINT "THIS IS THE DEPRECIATION PROGRAM IT IS USED TO" 

PRINT "CALCULATE THE MONTHLY DEPRECIATION ON YOUR FIXED" 

PRINT "ASSETS!- ONE AT A TIME. THEN THIS IS SUBTRACTED " 

PRINT "FROM THE COST AND THE REMAINDER IS THE PRESENT" 

PRINT "MALUE. THEN THE AMOUNT OF WEEKLY DEPRECIATION IS" 

PRINT "ENTERED UNDER ACCOUNT #7000 -• FIXED ASSETS IN THE" 

PRINT "LEDGER PROGRAM ■ ACBL," SPRINT 
PR IN! 

PRINT "WHAT IS THE AMOUNT OF THE INVESTMENT"? 

INPUT II 

AS-0 

PRINT 

F' R I N T " W 1 i A T I S T H E S A L U A G E V A 1. U E " ? 

INPUT SI 

PRINT 

PRINT "WHAT IS IIIF; DEPRECIABLE LIFE ( IN YEARS)"? 

INPUT LI 



f;.|: 



;nt 



PRINT "AT THE END OF WHICH MONTH (1 THRU 12) y AND IN WHAI YEAR' 

F' 1-^ ;i: N T " ( e;; g . 1 9 6 8 ) i s r h e: :e n v e:; s t m e n t mad e " ? 

INPUT AlyA9 



NT 
■CINT 
NT 
NT' 



DATE" 



STRI.INE" 



DDB" 9 " 



SYD" 



PRINT 

K~A9 

D'L^^^< (I1-S1)/L1)«(1 -Al/12) 

Q1~-D1 

F2=:K) 

D2=(2/L1)*I1>I<(1 A 1/12) 

Q2^^=D2 

(13^:^: ( ( 1 1 -S 1 ) >i< < .1 - A 1 / :L 2 ) * ( 2*1 :i, ) ) / ( < 1. 1 1 1 ) *L 1 ) 

Q3^^::D3 
D4^:=(U5/L1)*(1~A1/12) 

Q4n::Il4 

yi^^^^Dl/d+R) 

V2^:::D2/(lfR) 

M3:^-a:i3/(lfR) 

V4==D4/(1+R) 

FOf^ M^^^^l TO 12 

IF M<(A1+1) THEN 580 

Ml=^a;Ll./(12--Al) 

GOTO 590 

Ml-:--^0 

IF M<(A1+1) THEN 620 

M2=^:D2/(12~-A1) 

GOTO 630 

M2=::0 

IF M<(A1H) THEN 660 

M3==D3/(12-A1) 

GOTO 670 

M3=:::0 

IF M<(Al-fl) THEN 700 
M4==D4/(12-A1) 



X 

o 

fi 

LiJ 

o: 

o 

I— I 
u. 

h- 
Z 
LlI 

l-H 

o 
en 
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CD 

I— I 

a: 
>- 

a. 
o 
o 

o 
o 

Z2 



150\ 



690 BO TO 7:1.0 
700 M4.-:^^0 

7:1.0 :i:i" A8=^^:i. then 730 ■ 

720 F'R:[NTK ?"/"!! TAB ( 5 ) i) M ? TAB ( :l,5) 5 M:i. v M2 ? M3 ? M4 E 

730 NEXT H | 

740 GO SUB :l.490 ^ 

750 K"M<-f:l. " 

760 ri:i."^:<:i::i.-s:i, )/L:i. 2 

770 ilT K<(A9 + L:l. ) THEN 830 « 

7S0 li:b^o::L-S:l.--a:l. a 

790 :i:F B:i.>:i. then 840 y 

800 D:IJ^.^O LiL 

8:1.0 M:l,=D:L/A:l. h 

820 GOrO 840 □ 

830 M:i.^=a:i:l./:l.2 o 

840 Ii2^^^:(2/L:i. )*(:i::l.--Q2) 

G50 IF" K:>A9il...:l. THEN :l. 0:1.0 i£ 

a (SO :rF y<:i. then 950 3 

870 :i:f f2:>o then 940 !_ 

8 8 1;;: 2 ■■■■■■■■ ( 1 1 - S :l. ■■ ■ a 2 ) / ( A 9 -f I.. :L •■■■ K ■[ ( A :l. / :l. 2 ) ) t 

CD 

890 Tl~ Y=^^:l. THEN 920 ^ 

900 :i:f k<y fhen 950 >■ 

9:10 GOTO 930 g 

920 :I:F D2;>E2 then 950 

930 f2^=m;;;2 o 

940 ri2^^^^F2 

950 IF i:i2'0^<i::l.--S:l.'"Q2 THEN 990 

960 D2^^^^ :i::i.-3:i. 02 

970 :[F D2:-KL THEN 990 

980 D2=0 

990 M2=ri2/:l.2 

:L000 GOTO :l.040 

:I.O:i.O :[F D2>:i, THEN :l.030 

:l.020 D2=^^0 

:1.030 H2^='.D2/A:l. 

:i, 4 I"' 3 ■■■■■■^ ( :[ :l. - S :l. ■■■ Q 3 ) * 2 * ( A 9 ■}■ l._ :l. - K ■{■ ( A :l, / :i. 2 ) ) 

:l. 5 !"■ 4 ^^■■■- ( A 9 ■}• I... :i, •■•■ K f :l. ) * ( A 9 + L :l. ■ ■• l< -f ( A :l. / 6 ) ) 

:L060 ri3-P3/F4 

:i.070 :i:f K<(A9fi...:i. ) then :i.:i.20 

:i.080 :[F n3:>:L then :i. :i.oo 

:l.090 n3-o 

:l.:l,00 M3=^a:i3/A:l. 

:l:l.:LO GOTO :i.:l.30 

:L:l.20 H3-Ii3/:l.2 

:i.J30 ri4=^^(:i. ,5/i...:i. )*(:i::i,-a4) 

:L:l.40 :i:F K<A9fL:l. THEN :L220 

l.:1.50 IF K^^^A9 + L:l. THEN :i.;l.80 

:L:I.60 n4^=:0 

:l.:i.70 GOTO :1260 

:l.:l.80 IF n4>l THEN 1200 

l:L90 D4 = 

:L200 M4^^^^D4/A.1. 

:l. 2:1.0 GOTO :L270 

:l.220 IF D4<^^^^E1-S1--Q4 THEN 1240 

:L230 i:i4-l:l.-Si-Q4 

:l.240 IF D4>i THEN 1260 

:r250 D4=^^0 

1260 H4 ^^4:14/ 12 

1 270 M 1 ■■■■■■■■ K> 1 •}• 1:1 :!./(( :l. f R ) '- ( K ■••• < A 9 • • 1 ) ) ) 

1 2 8 U 2 ■■:■■■■ K) 2 f ■ D 2 / < ( 1 •{• R ) " ( K ••• ( A 9 - 1) ) ) 

.T290- V3--:-^;3-}-ri3/ ( C I m ) " ( K - ( A9 ~ 1 ) ) ) 

:l. 300 M 4 ■■^■■- U 4 4- n 4 / ( ( :[ -f R ) "^ < K - (. A 9 - ;l, ) ) ) 

1310 FOR M:'=l TO 12 

1320 IF Il-Sl-"Qi::^l THEN 1340 

I33-0 Hl-:-:0 

1340 Ql^-^QlfMl 



1350 


IF Il-Sl-a2>l 


THEN 1370 




:l.360 


M2 = 






1370 


a2=^=Q2 + M2 






1380 


IF I1-S1-Q3>1 


THEN 1400 




1390 


V\'3 --■■■■ 






1400 


Q3^:^^Q3-fM3 






1410 


IF I1~S1-Q4>1 


THEN 1430 




1420 


M 4:^=0 






1430 


Q4::::Q4.fM4 






1440 


IF A8::=l THEN 


1460 




1450 


PRINTK? "/" PTAB(5) P M 5 TAB ( 15) ? HI s- M:;. 


!i.M3!'M4 


1460 


ne:;xt m 






1470 


GOSIJB 1490 






1480 


GOTO 1710 






1490 


PRINT 






1500 


PRINT |-wDlyD2 


i'D3vli4 




1510 


IF AS=^^I. THEN 


1530 




1520 


PRINT 






1530 


PRINT "CUM DEP 


" >■ 01^02 1-03^04 




1540 


IF AS^:^^1 THEN 


1560 




1550 


PRINT 






1560 


B1:^^:I1 -SI Ql 






1570 


IF B1>1 THEN 


1590 




1580 


81:^:^0 






1590 


B2=^^I1-S1-Q2 






1600 


IF B2>1 THEN 


1620 




1610 


B2^^=0 






1620 


B3==I1~ S1-Q3 






1630 


U- B3>1 THEN 


1650 




1 640 


B3^^:0 






:l 650 


B4=-- 11 ■■■■81-04 






1660 


IF B4>1 THEN 


1680 




1670 


B4=0 






1680 


PRINT "UNDEPR 


BAL" yBlyB2!'B3i.B4 




1690 


PRINT 






1700 


RETURN 






1710 


IF K>^=(A9fLl) 


THEN 1730 




1720 


GOTO 750 






:l 730 


PRINT 






1740 


END 
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a: 

h- 



ACB I 
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cc 
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This is the inventory program, it is a disk interactive 
version of the Inventory program shown in Volume III of 
this set. The reports generated by the disk version are 
identical to those generated by the version in Volume III 
except for the updating section. Here the data base may 
be actively updated under program control. For sample 
listings or additional program information the reader is 
referred to the Inventory program in Volume III of the 
Basic Software Library. ACBI will require 15K of free 
memory for operation. 
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h- 
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DC 
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a. 
o 
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o 
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954 



o 
o 



cc 

too REM ACBI REAJIO ^ 

;l.l() FVEM THE I NU ENTRY F'ROGRAM « 

1.20 REM THE FOLI OWING VARIABLES ARE USED IN THIS PROGRAM x 

130 REM N = TOTAI # OF INMENTORY ITEMS ^ 

140 REM N(I)=ITEM # S 

ISO REM C(I)^^=CLASS OR SUBITEM # 

160 REM M(I)^^:^VENDOR # 

170 REM E*(I)-riESCRIPTION (LESS THEN 20 CHARACTERS PLEASE) 

ISO RIEM 0(I)-:UNir COST % 

190 REM i (D^^M.OCATION # DESIGNATES WHERE ITEM IS STOREIU 

200 REM LINE NUMBER TWO OF THE HAT A STATEMENT NOW HAS 

2 10 REM H<I)^^^a::!LIANTirY ON HAND 

220 REM S(I)^^:^NUMBER OF SALES DUf^ING THE LAST INVENTORY PERIOD 

230 REM A$<I)^^=DArE OF THIS PERIOD -• BE CONSISTENT EXS 12/18/75 [^ 

240 REM pi;i)^^=SELLING PRICE IN $ S 

250 REM I- 

260 A0~i00 g 

2 7 D i: M N ( A ) •> Z ( A ) ? M ( A ) » E;: * ( A ) 9 ( A ) ? I , ( A ) ? I-I ( A ) :• S ( A ) ? A * ( A ) g 

280 DIM P';AO) a: 

290 REM CllANGE THE ABOME SUBSCRIPTS TO EQUAL THE NUMBER OF YOUR g 

300 REM TOTAL INVENTORY ITEMS, 

3 1 R E M *>1<*****)!<*>S<== ■■■■^^ ■■■■^^ ■■■■^^ ■■■■■■■■ ■■■■■■■■ ■■■■■■■ ■■■■■'■■ ■■■■'■ ^'■■■- ■■■■■■^ ■■■■■■■ ■■■■■■■ = ■■■■'■ ■■■■■■■■ ■■■■■■■■ ■■■■•■■■ ■■■■■■■■ ■■■■■■■■ ■■■■■■ ■■■■■ ■■■■■■■■ ■■■■' ■''■ 

320 DEFDBL A B 

330 03-^^^" *$#######,.#*" 

340 GOTO 400 

350 i: N P U T' 41^ I s- N ? C V y i- E $ ;' ? I., ? H >■ S c A ^li v P 

360 RETURN 

370 PRINT#2i-N(.C:'Vi'E$? " ? " ? > L ? H i^S y A$ 5 " v " 5PJRETURN 

3 a c L (] s E i K 1 1. 1.,, " :i: N " s N A M E " j: s c !•;; j " a s " j: n o " j r e t u f^ n 

390 P E N " I " > * L I' " I W t R E T U R H 

400 PFilNI 

410 PRINT " UCC ■• COPYRIGHT BY SCIENTIFIC RESEARCH ■• 1976" 

420 PRINT 
430 PRINT 
440 PRINT 
450 PRINT 

460 PRINT 

470 PRINT " THIS IS IHE INVENTORY ACCOUNTING PROGRAM " 

480 PRINT 

490 PRINT 

500 PRINT 

5 J, F' R I N T " T' Y P E 1 N T' W E D A T E ^ A S J 1/14/75 " ? 

520 INPUI D$ 

530 PRINT 

540 F-OR I-I TO 7 

550 PRINT 

560 NEXT I 

570 PRINT 

580 PRINT 

590 PRINT 

600 PRINT "THE FOLLOWING IB A LIST OF THE REPORTS TF-IAT ARE AVAILABLE' 

610 PRINT "TO CHOOSE ONE TYPE IT'S NUMBER TO THE PROGRAM PROMPT," 

620 PRitNI 

630 PRINT " 1 =^^ ACTIVITY REPORT " 

640 PRINT " 2 ^- MINIMUM QUANTITY SEARCH " 

650 PRINT " 3 ^= INVENTORY LIST " 

660 PRINT " 4 ^^■■■- INVENTORY LIST BY CLASS " 

670 PRINT " 5 ■■'^■- INVENTORY LIST BY VENDOR " 

680 PRINT " 6 ^^^^ UPDATE THE INVENTRY" 

690 PRINT " 7 --■■■■ STOP PROGRAM " 

700 PRINT 

710 PRINT "WHICH REPORT WOULD YOU LIKE TO RUNS"? 

720 INPUT R 



800 IF R'^^^6 THEN 3.170 



950 A 3^-0 

960 iHPin Y* 

97ft PRINT 

980 IF 'r*=="NO" THEiN :l J JO 

990 IF- Y*="M" TIKH I 1 i 

.1,000 PFM'Nl 

10,1.0 Hh^^n) 

1.020 B2 = 

.1.030 B3-:-0 

1040 PRIHl "INF'Lll THE PEFrtOP DATE: FOF^ TFIIS F^ E F-' (J Fc T "5 

1050 A 1=^:0 

1060 A2™0 

1070 A 3-0 

1080 INF'UT 0$ 

1090 PF^FNT 

1100 GOTO 1130 

1:110 Q$=ri* 
1120 F-'Fn;ffr 

1130 F-'RJNT 

:1I40 F-'F^INT " A C f 1 ] r Y R E P R T F R "■)«* 

1. i,50 PFriNT 

1160 PFn. NT " TOIiAYS HA IF- "SD* 

1170 PFM.NT 

11 90 PRINT " ITEM* " » " HFSCF^IF'T ION 'S " #0N HAND 'S " $SA1 FS " -.■ " $PRO 

1190 PRINT 

1 2 G S UB 3 9 (; i I N P U T * i -.Hil 

1210 A7==n) 

1220 FOR 1=1 TO NU 

1230 GOSUB 350 

1240 A8="S)X(P~0) 

1250 IF A*^=:Q$ THEN 1230 

1260 NEXT I 

1270 GOTO 1350 

.1. 2 9 P R INT N i- E $ » 1 1 1- i I-' R 1 N T U S I N G U $ ? S * I-' » A 8 

1290 A3::^:A3fA8 

1300 A2::=A2-fS*P 

1310 A1=^:A1 + 1 

1320 Bl-BlJS 

1330 A7=:^l 

1340 GOTO 1260 

1350 IF A7^::^l THEN 1380 

1360 PRINT 

1370" PRINT "THERE WAS NO ACTIVITY DURING TITAT PERIOD " 

1380 PRINT 



730 PRINT 

740 IF- R = 7 THEN 3550 

750 IF R==l THEN 830 

760 .IF R=2 THEN 1540 H 

770 IF R::::3 THEN :l.890 z 

780 IF R:^::4 IHEN 2260 " 

790 IF R=^:5 THEN 2750 o 

810 PRlNf en 

820 GOTO 630 cc 

830 RFM THIS SUB GENERATES TIIE ACTIVITY REPORT # .1 o 

840 L.F T A -5 hi 

850 FfiR :i = I 10 A P 

BrtCi PRlNl S 

8 70 NEXl 1 o 
880 PRINT "UOULD YOU I.IKE YOUR ACFIOITY REPORF FO COMER A DATE" "^ 
890 PRINT "OTHER THEN THAT OF TODAY (YES OR NO)" S r^ 
900 B.l.-~0 & 
910 E2=^K) ^ 

9 2 B ,:5 "~ 
930 A 1=0 



3: 

40 A2=0 ^ 

O 
O 



O 
O 



1390 
1400 
1410 
1420 
1430 
1440 
1430 
1460 

14 70 
1480 
1490 
1500 

1 5 i 
1520 
1530 
1540 
1550 
1560 
:l 5 "70 
J 580 
15V0 
1 600 
1610 
1620 
1630 
:i 640 
1650 
1660 
1670 
1680 
1690 
J 700 
1 7 1 
1720 
1730 
I 740 
1750 
:i 7.!)0 
1770 
1780 
1,790 
1800 
1 S :l. 
1920 
1830 
1840 
1850 
1360 
1070 
1880 
1S90 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1.980 
1990 
2000 
2010 
2020 
2030 
2040 



PRINT "TOIAL F'lECES SOLD ^== "SBl 

F'Fi;lNT "TOIAL ITEMS - "'Al 

PF;;1NT MOlAL DOLLAR SALES ^-^ " 9 tPRIH'T USING 0*5 A 2 q^ 

F R I N I " T r A I D 1 L A R P R F 1 1 ■■■■■■= " ? t P R I N J U S I N G i|i 5 A 3 fe 

PRINf S 

CLOSE X 

FMaMNI ^ 

PRINI iS 

PRINT LJ 

PRINT "yOlJLD YOU LIKE TO CHECK THE ACTIMIIY POR ANOTHER PERIOD "? Q= 

INPUT Y* " 

PRINT t 

IF Y$^="YES" THEN 1000 fe 

i:f y$^-"Y" then 1000 K 

GOTO 530 ^ 

REM THIS SUB GENERATES A SEARCH FOR MINIMUM QUANTITIES 

REM THIS IS REPORT #2 |:: 

1-5 3 

FOR T-1 TO T 1- 

PRINT g 

Nr:XT I S 

PRINi " MINIMUM Q U A N I I T Y S E A R C H " JDil^ 

F-RINl S 

F''RINT o 

PRINT "TYPE IN THE MINIMUM QUANTITY LEUEL THAT YOU ARE INTERESTEIP'^ 

PRINT "IN. FMJR EXAMPLE TO CFIECK FOR STOCK ITEMS TYPE A - 1" 

PRINT "TO CLIECK FOR ITEMS WITFI QUANIJTIES LESS THEN 5 TYPE A ~ 5" 

PRINI " rYPL A IF YOU WANT ANUTHFR REPORT INSTEAD. INPUT QUANTITY? " 

INPUT A 5 

If A5---0 THEN 530 

IF A5^:0 THEN 53C 

PRINT 

GO SUB 390riNl-'Ul*l ^■NU 

PRINT 

!"■ R\H'i '■ M 1: N 1 M U M U U A N T 1 1 Y N H A N D S E A R C H R E F R T " ? D $ 

F-'R I N I 

PRINT 

pRlNf " llEM# "y" DESCRIPTION " v " #0N FIAND "9" *SOLD " ? " LuCAT#" 

PRINT 

F-OR ,l,=^-1 10 NU 

GOSUB 350 

IF FKA5 TF-IEN 1840 

IF H=::A5 TFIEN :l 840 

NEXr 1 

GOTO 1860 

PRINI Nni-'lij-FhSyL 

GOTO 1820 

PRINT 

CLOSE 

GOTO 530 

rem this is the invenfory list sub #3 
lj;;:t a-5 

FOR 1=1 TO A 

PRINT 

NEXT I 

F^RINT " 1.,. .1: S T F I N E N T R Y "i)D$ 

PRINT 

PRINT 

PRINT TAB(3)ii 

PRINT " ITEM # "v" CLASS # "v" VENDOR # " v " COST $"y" DESCRIPTION" 

PRINT 

PRINT " LOCAT* " i- " QUAN# ''■.'" tSOLD "?" SEL PR* "."EST DATE" 

PRINT 

PRINT 

A 1=0 

A2=0 



20SO 


2060 


2070 


2080 


2090 


2100 


21:1.0 


2120 


2130 


2140 


2150 


2160 


2170 


2;l i:JO 


2190 


2200 


2210 


2220 


2230 


2240 


2250 


2260 


22 70 


2280 



A 4=^0 

GOSIJB 390n:NPUT#lvNU 

FOR l^^^l. TO NU 

F-'FilNT NvCyUi-O^E* 

l--'Fn:NT LvHs-Si-Pi^A* 

Al^^^^Al R)*ll 

A2^=A2-}P>kS 

A3=^:A3fH 

PRl HF 

NFLXr 1 

PF^lNl 

CI..OSF: 

PFrFNI 

{'■' R 1 m " F R B. S Ei. N 1 1 N E N T R Y C S J 

PRlNl "lOTAL NLJMBFi:R OF PIECES 

PRINT "TOTAL LSI SALES PERIODS 

N^=TMU 

PRINT "TOTAL. NUMBER OF- TNUENTORY ITEM ON RECORn - "PN 

PRINI 

GO 10 5'SO 

REM FMFS SUB OENE RATES AN INyENTORY LFSriNO BY CLASS 



" 5 IPRINFUSINO V*>iAl 

" 5 A3 
" ? I PR I NT USING V$vA2 



2300 

231 

2320 

2330 

2340 

2350 

2360 

2370 

2330 

2390 

2400 

24 JO 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2S10 

2520 

2530 

2540 

2550 

2560 

2570 

258 

2590 

2600 

2610 

2620 

2630 

2640 

26}':i0 

2660 

2670 

2680 

2390' 

2700 



C D E 



t T F;. M * " y " 1,1 E S C F^ 1 F^' <■ " I." f ON 1 1 A N H " . " U E N U (J R if 



DC 



X 

o 

iS 

</) 

u 
q: 



Li. 



O 






>- 

O 
U 



o 



FOR l^^H. TO A 

PRINT 

NEXI i 

PRINT "TTTIS REPORi GENERATES A LIST BY CLASS COBE FROn TFiE IFEMS" 

PR INF "PRESENll.Y ON YOUR 1 NO EN TORY RFCORB. " 

PRINT "TYPE IN TFIE CLASS COBE YOU WANT SEARCFIEIH " 5 

.INPUT A 5 

BI=0 

B2^^^K) 

B3-^0 

PRINT 

PRINF 

PRINT 

PRINF " C 

PRINI 

PRINF 

PRINT " CLASS* "y' 

PRINT 

A7-0 

GO SUB 390:iNPUT#:l vNU 

FOR 1=1 ro NU 

IF C-^A5 TMEN 2520 

NEXT F 

GOTO 2580 

PRINT CyN.E^yUyO 

B1^:::B1+FI*0 

B2=B2fl 

B3=B3-fFI 

A 7 = 1 

GOTO 2500 

IP A 7=1 TF-IEN 2610 

PRINT "CAN-'T FIND TFIAT CF.ASS COBE IN THE INOENTORY 1 1ST RFCFIFCK CODE* 

PRINT 

PRINT 

PRINT "TOTAL CLASS COS! = "? i PRINT USING 0*5 B I 

F R 1 N T " r T A L NUMB E R F- I T E M S =:^ "562 

PRINT "TOT A I NUMBER OF PIECES -"5B3 

PRINT 

PRINT "WOULD YOU LIKE TO CHECK ANOTHER CLASS CODE (YES OR N0> "S 

INPUT Yf 

PRINT 

PRINT 

CLOSE 



2 7;l0 IF Y*:^="YE;.B" THEN 2330 

2720 i:F' r$:::^°Y" THEN 2330 

2730 PRINT 

2/40 GO TO 530 

;:?5(i F<EM THIS SUB GENERATESTHE OENDOR CODE LIST # 5 

2760 LET A ^^^^5 

2770 F"CJR I^^^l TO A 

2780 PRINT 

2790 NEXT I 

2800 PRINT "TYPE IN THE MENUOR CODE YOU WOULD LIKE TO SEARCH "5 

2810 INPUT A 5 

2820 PRINT 

2830 PRINT 

2840 PR:[NT " V E N D R C D E L I S T "?D$ 

2850 PRINT 

2860 PRINT 

28 70 PRINT " VENDOR* 'S " ITEM* "v" CLASS " v " #0N HAND".'" DESC," 

2880 PRINT 

2890 A:L:=0 

2900 A7""0 

2 9 1 G SUB 3 9 n: N F^' U T iP I •> N U 
2920 F"OR I" I TO NU 

2930 IF U=A5 THEN 2960 

2940 NEXT J 

2950 G (j T V 3 

2960 PF>:]N!^ OyN^CvHi-E* 

2970 A7=^\! 

29 3<; f^I^AIM 

2990 GOTO 2940 

3000 IF a;=^^L n-IEN 3030 

301.0 PRINT 

3020 PRINT "COULJJNM' FIND THAT OENDOFi; IN THE INVENTORY LIST TRY AOA.i 

3030 PRINT 

304(1 F' R 1 N T " T T A L N U M B F; R f I I E. H S ■■■■'■■ ' i> A 1 

3050 PRINT 

3060 PRINT 

3070 PRINT 

3080 PRINT 

3090 CLOSE 

3 J. P R L N r " ki (J U 1., D Y U i I K E. T C H E C K A N iJ f H E R K> E N D 1^;; " s 

3110 INPUT Y$ 

3120 PRINT 

3130 PRINT 

3140 IF Y*^:="YES" THEN 2800 

3150 IF Y$=::"Y" THEN 2800 

3160 GOTO 530 

3170 REM 

3 1 8 F' U R 1 9 ■■■■■■■■ I TO 7 S P R l N T t N E X T 1 9 

3190 PRINT "THIS IS THE UPDATING SECTION" 

3200 PRINT 

TO EXIT -THIS SECTION" 

TO ADD A NEW ITEM" 

T U P D A T- F;: A N L.. D 1 T E M " t P R I H T : I N P U T F 



DC 



Z 



o 
a: 

gi 
</) 

DC 



O 
(ft 






DC 

>- 

a. 

o 
u 

o 
o 

3 







3210 PR I NT "TYPE A 

3220 PR INT "TYPE A I 

3230 PRINT "TYPE A - 2 

3240 IF F<0 THEN 3190 

3250 IF- F>2 FHEN 3190 

3260 IF F^^^K) THEN 530 

3270 IF F::^^l THEN 3290 

3280 IE F:^:^2 THEN 3390 

3290 REM NEW ITEM 

3 300 GO S U B 390 2 F^' E N " " i- # 2 ;- " I S C F^ 1 " ? j: N P U T # I >- N U I F^' F^ 1 N T % 2 y N U f I 

3310 PRINT 

3320 FOR I6::::I TO NUJGOSUB 350JG0SUB 370 1 NEXT 16 

3330 PRINT"ENTER THE ITEM DATA AS FOLLOWSI" 

3340 PRINT" ITEMii/ CLASS#y VENDOR*!' DESCp COSTi- LOCATIONS- ON HANDy # 

ERIOD. DATE OF LAST SALE OR E'URCHASEv SELLING PRICE" 

3350 INFnjT N y C ? V 1- E$ 1 > L ? H ? S i- A* 9 P 



SOLD THIS 



.,^ '0 I. 






1 1 



M:-'F?iNnNEXT :i: 

l-'U1t;l vNUn)F'EM''0» ?#2» " ISCK L " tPR INi*2fNU 



r 



ti ','11 

(1 .;)',) 

II, II I ,'| r 

! I IN . 

i: )"'j ' 1 1 

I " Iril'iii HIE .ITEM* " ? JINFUT J 9 

I 

I I Ml i-ID 

i; -'j',' 

•' a nil iJ '3510 

I , ,'m 



I I'Kirn "I.NTEF:; the item HhTA as FUl.lOWSi" 
INI :i'KIHI " It ON HANDf # SOLU TUTS F'EFniOD? DATE OF LAS 



|i|'i 
nil 
liu 



cr 

I- 



cr 

< 

LjJ 

cn 

bJ 

CC 









3 



cc 
>- 

CL. 

o 
o 

CJ 

13 



960 






ACBL 

This is the ledger program, it will store and execute in 
15K Bytes of free memory. This program performs periodic 
updates to the ledger files and also generates Payroll, 
Sales, A/P, Cash and Expense statistics. From these totals 
the Balance Sheet, P&L, Year End taxes, 941's and W2 in- 
formation may be generated. This program does not take 
into consideration the A/R or Saleable (merchandise) inven- 
tory. These totals must be obtained by running the ACBB 
and ACBI programs. The following three pages illustrates 
program operation. The first page illustrates a typical 
session. The second and third pages are report print outs 
for the sample session and prior year to date totals. The 
programs source code follows these first three pages. 
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o 
CO 

hi 

cc 
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ACBL ••■ le;:dger proof? am 

UCC; • COF'YRIGHI 19 77 . SCIENTIFIC RESEARC 

hEPU NUMBER ? 5:1. 

I- [Rri NAME ? SCIENTIFIC RESEAF^CH 

UFtiiA EN II INC ? 8/5// 7 



HOW MANY NEW EMPIUYEES? 



liOW MANY EMPl.OYEFiS TO DELETE? 



a: 



o 
a: 

2 

hi 

a: 



u 

t— < 

L. 

1- 

u 

n 
O 
CO 



3 



WAS FFTIS A bO HOUR f:'AY PERIOD? YES 

D LO RI..L, EMPLOYEES WORK 80 HOURS? NO 

HOW MANY EMPLOYIIES DID NOl WORK 80 HOURS?. 

lYPE EMPLOYEE # i- THEN # OF HOURS WORKED 



HOW MANY LEDGER ENTRIES? 3 

i;: N r e r l f;: d g f: r i r e m s :i; n o i^;; n f: r. . . 
A c i; r ,'HO; V c F I e c k n o ^ y d a r f: ? p a y e e ■. a m o u w ■ 

i ' 100 V 4567 y 8/2/77 y LAFAYETTE v 87 . 12 
? 2400 V 4568 f 8/3/77!. GEO SUPPLY 1.45716 
? 1500!'4569i'8/3/77yRADC0 INC.i'56<-75 



a: 

>- 
a. 
o 
o 

o 
o 



FFOW MANY CASH ITEMS? 2 
ENTER ITEMS IN ORDER, , . 
DAfE). TO WHOMy AMOUNT 

^j' Ei / 2 / 7 7 y f:: d p f I :f l. i... i p s ? 1 2 . 8 5 

? 8/3/77 ? UPS y 8 . 63 



ie;nter receipts for each day 

SUNDAY ?__0_ 

MONDAY ? 345.12 

TUESDAY ? 456.72 

WEDNESDAY ? 126,90 

THURSDAY ? 671,81 

FRIDAY ? 572.62 

SATURDAY ? 



position PRINTER AT PAGE TOP 



HIT 'RETURN^ WHEN READY? 
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MINI -LEDGER 
IJCC ••" COPYRIGHT 1977 . SCIENTIFIC RESEARCH 



DEPT. NUMBER 

FIRM NAME 

FOR WEEK ENDING 



* 5 J 

? SCIENTIFIC RESEARCH 

; 8/5/77 



X 

u 



tn 

u 

u. 



ALL SALES 

SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY 
0.00 345,12 456.72 126.90 671.81 572.62 0.00 



THIS WEEK 



PAYROLL 



iEMP* SO C. SEC* 



2173.17 LAST WEEK 



6732 
3 1 1 2 
918 
A671 



237--62 
698-32 



•1932 
■2679 



183-67-2110 PI 
823-16-4312 J 



NAMI:; 



J, M. DOYLE 
G.R. CRAMER 

IIL JOHNSON 

. SWAIN 



HRS 
WKD 



65 
80 
80 
80 



567.43 TO DATE 



2740.60 



UROSS 
WAGES 

424.45 
254.40 
350.40 
460.00 



■ICA 
AMT 



24. 
14. 
20. 
26. 



83 
88 
49 
91 



FEDRL 
WITH 

55.28 
33.02 
42.86 
54.69 



TOTALS 



80 1489.25 87.11 185.85 



STATE 
WITH 

0.00 
0.00 
0.00 
0.00 

0.00 



MISC 
DED 

8.93 

7.50 

16.50 

8.50 



&? 



a 



ce. 

>■ 

Q. 
O 
U 

U 
U 

3 



NET 
WAGES 

335.41 
199.00 
270.55 
369.90 



41.43 1174.86 



A/P 



ACt 


CHECK t 


DATE 


TO WHOM 


100 


4567 


8/2/77 


LAFAYETTE 


2400 


4568 


8/3/77 


GEO SUPPLY 


1500 


4569 


8/3/77 


RADCQ INC. 



OPENING BALANCE 



312.48 



CLOSING BALANCE 



EXPLANATION 

MERCHANDISE 
OFFICE EXPEN 
SHOP EXPENSE 



123.45 



TOTAL 



AMOUNT 

87,12 
45.16 

56.75 

189.03 



PETTY CASH 



DATE 

8/2/77 
e/3/77 

OPENING BAL 



TO WHOM 

ED PHILLIPS 
UPS 



25.13 



TOTAL 



AMOUNT 

12.85 
8.63 

21.48 



CLOSING BAL 



46.61 
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ucc 



COF'YRIGHT 1977 



SCIENTIF'IC F^ESEAFi;CH 



q: 



en 

z: 



EXF'ENSES 



AC* DESCRIF'TION THIS WEEK LAST WEEK 



100 

200 

300 

400 

1000 

1500 

2. 

2100 

2200 

2300 

2400 

2500 

2600 

2700 

2 8 
2900 

3 
3100 
3200 
3300 
3400 
3500 
4000 
4100 
4200 
4300 
4400 
5000 
5100 
5200 
6000 
7000 



mefu:;handise 
shif'f'ing 

FRElGiri 
F'OSTAGE 
BAD DEB IS 
SHOP EXF'ENSE 
AGCGUNTING 
[NSURANCE 
LEGAL 
LICENSES 
OFFICE EX PEN 
M ISC /PETTY 
I..EASING EXPS 
LEASING IN 
TELEPHONE 
UTILITIES 
PAYROLL 
TAX--SOC.SEC. 

TAX ST UNEM. 

INTEREST 
TAX --OTHER 
CONTRIBUTION 
ENTERTAINMNT 
ADMERTISING 
TRAMEL 
AUTO 

DUESISUBSCRP 
NOTES! LOANS 
FED. INC. TAX 
L.OAN RECOBL 
PERSONAL ACS 
FIXED ASSETS 

TOTAI S 



87.12 
0.00 
0.00 
0.00 
0.00 

56.75 
0.00 
0.00 
. 
. 00 

45.16 

21.48 
0.00 
. 00 
. 00 
0.00 
1174.S6 

87.11 
. 
0,00 
0.00 
0.00 
0.00 
. 
. 00 
0.00 
0.00 
0.00 
0.00 
, 00 
. 00 
0.00 

1472.48 



123.45 
0.00 
0.00 
0.00 
. 00 
0.00 
. 00 
0.00 
0.00 
0.00 
. 
0.00 
0.00 
. 
0.00 
0.00 
. 
. 
. 
0.00 
0.00 
0.00 
. 00 
0.00 
0.00 
. 
. 
. 
« 
0.00 
0.00 
0.00 



123.45 



TO DATE 

210.57 
0.00 
0.00 
0.00 
0.00 

56 . 75 
. 
0.00 
0.00 
. 

45.16 

21 .48 
0.00 
. 00 
.00 
. 
1174.86 

87.11 
. 00 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
0.00 
. 
0.00 

1595.93 



O 

a: 
< 

txl 

<n 

LiJ 

cc 
o 
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z: 
u 

o 

01 






cr 
>- 
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PROFIT AND LOSS 



INCOME 



EXF^'ENSES PROFIT/<LOSS; 



-AST WK 
"HIS WK 
"0 DATE 



567.43 
2173.17 
2740.60 



123.45 
472.48 



443.98 

700.69 

.144.67 



964 



o 

jLOO cleaf;; 300 " 

:l. 10 OPEN "1" fl," EMPFL % o 

.1.20 INPUTfli-B:!. 5 

:l.30 CLOSE 1 S 

140 DEFDBL A S 

150 DEFIiBL.. L "^ 



160 DEFDBL 0-Z S 

170 DEFDBL C ^ 

180 D.IM AKBl) 

190 PF5INT CHR$(26) ^ 

200 DATA "SUNDAY". "MONDAY" y « TUESDAY "." WEDNESDAY "?" THUF?SDAY "." FRIDAY » ^ 

210 DATA "SATURDAY" ^ 

220 DATA lOOi; "MERCHANDISE" !'200!' "SHIPPING" ?300s- "FREIGHT" "-i^ 

230 DATA 400. "POSTAGE" .1000. "BAD DEBTS" . ISOO. " SHOP EXPENSE" ^ 

240 DATA 2000. "ACCOUNTING" .2100. " INSURANCE" .2200 . "LEGAL " ^ 

250 DATA 2300. "LICENSES". 2400. "OFFICE EXPEN" .2500. "MISC/PETTY" ^ 

260 DATA 2600. "LEASING EXPS " .2700 . "LEASING IN" .2800 . "TELEPHONE" g 

270 DATA 2900. "UTILITIES". 3000. "PAYROLL". 3100. "TAX-SOC«SEC»" ^ 

280 DATA 3200."TAX-ST UNEM »" .3300. " INTEREST" .3400. "TAX-OTHER" =^ 
290 DATA 3500. "CONTRIBUTIONS" .4000. "ENTERTAINMNT" .4100 . "ADUERTISING"^ 

:500 DATA 4200 . " TRAUEL " . 4300 . " AUTO " . 4400 . " DUESf SUBSCRP " !^ 
310 DATA 5000. "NOTES+LOANS" .5100. "FED. INC. TAX" .5200. "LOAN RECVBL" 
320 DATA 6000. "PERSONAL ACS " .7000. "FIXED ASSETS" 
330 FOR I=^^l TO 5? PRINT? NEXT I 

340 PRINTJPRINT " ACBL - LEDGER PROGRAM 

350 PRINT SPRINT" UCC - COPYRIGHT 1977 . SCIENTIFIC RESEARCH "? PRINT 
3 6 I N I-" U T " D E F^' T . NUMB E R " ? K 1 

3 7 :i: N F^' u r " f- i r m nam e " 5 k i $ 

380 PRINT 

390 INPUT "WEEK ENDING "5WE$ 

400 FOR I9=:l TO 6?0N 19 GOSUB 470.840. 1360. 2270. 2700. 3030 JNEXT 19 

4 1 P E N " " . # :l. . " B F 1 1... E " . () 

420 PR I NT# 1 . K 1 ? K 1 $ ? " . " 5 CN$ 5 " . " 5 WE$ T' . " ? B 1 5 

430 FOR 1 2== 1 TO B 1 1 PR I NTt 1 . A 1 ( 1 2 ) ? I NEXT 1 2 

440 PRINTfl . NP ? HT 5 SO 5 81 5 82 v S3 ? S4 ? 85 y N4 ? LT 5 LC ? NA P T8 5 CC t CLOSE 1 
450 PRINT? GOSUB 3210 

460 END 

470 PRINT? PRINT 

480 INPUT "HOW MANY NEW EMPLOYEES" ?N2 

490 IF N2^==0 THEN RETURN 

500 IF N2>0 THEN 530 

510 PR INT "POSIT I ME NUMBER. PLEASE" 

520 GOTO 480 

530 OPEN" I" .#1. "PFLE" .0 

540 OPEN"0" .#2. °SCR4" .0 

550 INPUTil.EN.H 

560 PRINT#2.ENfN2.H 

570 IF EN::-0 THEN 620 

580 FOR I^==^l TO EN 

590 GOSUB 4050 

600 GOSUB 4040 

610 NEXT I 

620 PRINT "ENTER THE FOLLOWING ITEMS FOR EACH NEW EMPLOYEE" 

630 PRINT" ITEMS SHOULD BE SEPARATED BY COMMAS" 

640 FOR I-l TO N2 

650 PRINT"EMPL#. S.S.#. EMPL. NAME" 

660 INPUT E0$.E1*.E$ 

670 PR I NT "HOURLY WAGE. DEPENDENT CODE. DEDUCT. AMT. MISC DED.AMT" 

680 INPUT E0.D.E1.E2 

690 PRINT "GROSS YEAR-TO-DATE (YTD). PICA YTD. FED TAX YTD. STATE YTD, 



HI sen ED YTIi" 

700 INF'Ur Y0i'Y:L!.Y2:'Y3yY4 

710 Y;";^^=Y0-Y1 •Y2-Y3-Y4 

/2Q PFilNT'GF^OSS THIS F'ERIOIJ (SINCE LAST F-fL STATEMENT) y TAXES THIS Pi 
" 

730 INPUT l^'Oi'Pl 

740 PRINT "GF^OSS THIS QIR? F- ICA I HIS OTRy FED. TAX THIS QTR" 

750 INPUT aO:/(Jl i^Ql;' 

760 FRINr 

77V D 1:^^-1. 

780 (SOS I IB 4040 

790 Ntxr [ 

son CI OSF: I s2 

8 10 KFI.i. "PF-u:; " ?0 

&?0 NAhE"SCR4"Ay"PFLE" 

8;i„ RE 1 URN 

;-H0 PRINT IPRINI 

:!; ::. (J IN F^' U T " H W MANY [• M F I. . t) Y FL E S T (1 D E L E I E " 5 N 2 

860 IF N2::^h) THEN RETURN 

870 1 F N;>>0 then 900 

B 3 P P I N T " P 1 J S ] I 1 F: N U M B F- F^; ? F^' I „ E A S F: " 

890 RUfl) Wi-iO 

'300 DIM i;:NT';N2 J ?F 9(N2) 

910 np;::N"i =' !-#t . "M-lf ■■ vO 

92(s UF'FN"()" I'fy^ "SCR 4" yO 
7>jO PR IN If '^SFARCM BY I " 

•? 4 ! ■• p I N I " ( I ) f: m p I . CI Y f; f; numb e p ( 2 .* s c i a i . s e c u p t t' y n u m b f;, p " 

91:50 INPUT" ENTER M CR '2-'" ? J 

960 J^^^^J J, 

970 IF' J = TFIF'N A$-~ " EMPLOYEE " ELSE Af="S::iCIAL SECURITY" 

980 PRIM I "ENTER "»A$S" NOS. TO DEI ETE» ONE PER LINE" 

990 FOR I::=I ro N2 

1000 E9(I)=0 

I 010 INPUT EN$(I) 

1.020 FI=0 

1030 IF P:^^1 THEN ;F090 

J 040 FOR ri'-l 10 I- 1 

i, S F F- E- N if ( t > ^ : F N $ ( 1 :l ) H -I F- N 1 B 

1060 PRFNT"THIS NUMBER EQUALS ONE ALREADY ENTERED START OOER" 

10/0 FI^:::l;l=::N2n, I^^^^I 

10 SO NEXT FI 

1090 NEXT I 

1100 FF F|=J IHEN 350 

II 10 INPUTILFvENyH 

1120 PRlNr*2vENHl 

1130 FOR F=1 10 EN 

1140 OOSUB 4050 

1 150 FOR 1 1 ""I ro N2 

I 160 ON 01 GOTO I 170 5' 1 190 

1 1. / F F E N $ < 1 1 ) 7 >• F- Is T FI E. N 1 2 3 

1180 GOrO 1200 

1. 190 I F E N iis ( ] F ) < ;> E 1 $ T F I E N 1 230 

1200 PRINT All;? "#" 5EI$? 

1210 FF DI=^K) THEN PRINT" ALREADY DEF.ETED" ELSE PRINT" DELETED" 

1220 E9( FI )::=I IDl^::^) 

1230 NEXr II 

1240 F'RINT #2 » Dl y E0$ ?";-"? El$ ',"■>"} E$ 5 " i- " 5 EO , D v El > E2 v YO i- Yl c Y2 ;- Y3 y Y4 ? Y5 - F 

l.-'aO»Qly02y 

1250 NEXT I 

1260 FOR 1=1 TO N2 

1270 IF E9<1)=0 THEN PRINT " EMPLOYEE ^!' " y EN* ( I ) ? " NOT FOUND" 

1280 NEXT I 

1290 CLOSE 1^2 

1300 KILL "PELE" ,0 

1.310 NAME"SCR4" AS "PELE" 

1320 ERASE EN*yE9 



DC 

RIO w 



o 

tx. 



IS 

to 
u 
tx. 



u. 



o 






3: 

CD 
I— I 

a: 
>■ 

a. 
o 

C_) 

o 



y F-' 



1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 



]:nput"any moF'Je: deletions" 5A* 

IF MID$<A$!'l!'l)-"Y" THEN 840 

Fv'ETUFilN 

OF'EN"I"!'#ls'''F'FI..E° s-O 

OPEN°0« !'#2i' "SCF?5" ? 

0PEN"0"!'#3!'°TEMP1" s-O 

PRlMTtPRim 

INPUTfli-ENs-H 

DIM Ea$(EN)!'Hl(EH) 

FOF^' I:-==l TO EN 

GOSUB 4050 

E8$(I)-=4I0i|i 

NEXT I 

CLOSE 1 

OPEN"!" s-li- "PFLE-i-O 

INPUTtli-ENi-FI 

PF?INT°WAa THIS A"?H?"HOUFi; 

INPUT A$ 

IF MHi* ( A*, li-l )--"¥" THEN 1530 



PAY PERIOD"? 



1770 
DID NOT 



W0F;:K "!!H?"HOURS"f 



ON FILE 



TRY AGAIN" 



INPUT"HOW MANY HOURS IN THIS PAY PERIOD" 5H 

FOR I=a TO EN 

H1(I)==H 

NEXT I 

PRINT 

PRINT"DID ALL EMPLOYEES WORK 

INPUT All; 

IF MID$(Af !.1?1)'=^"Y" THEN 

PRINT "HOW MANY EMPLOYEES 

INPUT N3 

PR I NT "TYPE EMPLOYEE ^9 THEN # OF HOURS WORKED' 

FOR I:=l TO N3 

INPUT E2$s'H2 

F1==0 

FOR Il-=1 TO EN 

IF E2$<>E8*(I1) THEN 1710 

H1(I)=H2 

Fl = l 

11=== EN 

NEXT II 

IF Fl::=l THEN 1750 

PR I NT " EMPLOYEE # " ? E2f ? " NOT 

GOTO 1640 

NEXT I 

HT=0 t S0==0 I Sl-0 1 S2==0 1 S3=0 t S4==0 t S5-:0 1 NP-0 

FOR I==l TO EN 

GOSUB 4050 

IF Dl==l THEN 1810 

GOSUB 4040? GOTO 1310 

NP==MMPfl 

W0=H1(I)H<E0 'GROSS 

Z9==-14100IZe====»05a5 ' 

W1==W0*Z8 

W1=--<[NT(100*W1)/100 

IF W0<Z9 THEN 1880 

wi==-=o 

Z6====14»4 

Z6=:=Z6>!<Hl(I)/40 

D===D MOD 100 

Z6===Z6«D 

Z4==.1464 'FED TAX RATE - INSERT FED* TAX SUB IF DESIRED 

W2=(W0-Z6)H<Z4 

W2==INT(100>HW2)/100 

Z9--- , 1 5375 1 Z8=:=33 . 3 t T7=6 * 75 

Z2=(12.5/40>>KH1(I) 

Z2==Z2>!<D 

Z3==Z8*Hl(I)/40 



WAGES 

PICA LIMITS 



IDA WITHHOLDING 



FED TAX WITHHOLDING 

'STATE TAX CONSTANTS 



1990 Z4==:W0~Z2-Z7 

2000 W3==Z9)i<Z4 'STATE WITHHOLDING 

20.1.0 IF W3<0 THE-N W3^=0 
_2020 W3==INT(W3*:l00)/:i.00 

2030 W4==E2*H:L(I)/40 
_2040_W4==INT(100*W4)/;LOO 'MISC WITHHOLDING 

2050 W5=-'W0-W:l-W2-W3~W4 'NET PAY 
^060 F'RINT#3 » E0$ P % 'S Ei$ 5 % " 5 E* v ° i; « 5 HI ( I ) 5 WO P W;l. P W2 ? W3 > W4 P W5 > 

2070 Al(17)=:A:l(17)+W5 
J2_080 A K 1 8 ) = A 1 ( .1 8 ) -f W 1 

2090 YO=YOfWO 

.2100 Y :L=^Y3.fWl 

2110 Y2=Y2+W2 
^120 Y3==Y3+W3 

2130 Y4==Y4+W4 
J2140 Y5==Y5+W5 

2150 P0=P0-fW0 

2160 Pl^PliWl-fW2-fW3 

2170 Q0=Q0+W0 

2180 Ql^QlfWl 

2190 Q2--=Q2+W2 
_22p0 GOSUB 4040 

2210 HT^HT-fHKI) 

^220 _SO~:SO+WO t S1:=S1+W1 1 S2=S2+W2 I S3==S3+W3 1 S4-==^S4fW4 1 S5=S5 + W5 
NEXT i 

ERASE E8$?H1 
CLOSE 1?2!'3 
Fi;ETUFi;N 
T'FilNTIPF^MNT 
INPUT-HOW MANY LEDGER ENTRIES" yN4 




2290 IF N4-0 TFlEN RETURN 
2300 OPEN " % # 1 f " TEMP2 " j- 



2310 


0PENM%#2!-"LEGER%0 




2320 


0PEN"0"y#3v"SCR6%0 




2330 


INPUT#2!-NL!-LC 




2340 


FOR I-l TO NLJINPUT#2!-L1, 


■Ll*yL2*s'L3$i-L2 


2350 


PRINT#3yLl H..1$P " 9 " ?L2$P " > 


■•'9L3$9''9"9L2.9 


2360 


NEXT I 




2370 


PRINT "ENTER LEDGER ITEMS 


IN ORDER.**" 


2380 


PRINT" ACCT^NO.. CHECK NO,? DATE? PAYEE. AMOUN 


2390 


LT=0 




2400 


FOR 1=1 TO N4 




2410 


INPUT LI 1- Ll$ ? L2$ ? L3$ j- L2 




2420 


F1==0 




2430 


restore; FOR 12-1 TO 71 READ AlfJNEXT 12 


2440 


FOR Il-l TO Bl 




IZ^SO 


R1:AXi C9!-A1$ 




2460 


IF L10C9 THEN 2500 




2470 


A1(I1)=A1(I1)+L2 




2480 


F1 = I1 




2490 


11=32 




2500 


NEXT 11 




2510 


IF F1>0 THEN 2540 




2520 


PRINT'ACCOUNT N0» °?L:i?° 


NOT FOUND*, .RE-ENTER" 


2530 


GOTO 2410 




2540 


PRINT#3pL1 5L1$5 " 9 ° 5L2*» ° > 


°yL3i|iP "!;";L25 


2550 


PRINT#1 jLi5Ll*> " 9 " yL2$5 " , 


" 9L3t9 " 9 " 9fM$9 " 9 " 9L2 


2560 


LT=LT+L2 





2570 NEXT 1 

2580 LC=LC+LT 

2590 CLOSE 192 93 

2600 OPEN ° I " y #3 y " SCR6 " 9 



2610 OPEN "Q", #27" LEGER " 9 

2620 PRINT#2 >NL-fN4>LC; 

2630 FOR 1=1 fd NL+N4 

2640 INPUT*3yLlH...l$i-L2$FL3$Fl 



2650 PR:[NT#2i'L1 i!H*? 
2660 NEXT I 



H..2f.i 



JL3$ 



P LJ. f 



2670 CLOSE 



3 



!NA 



2680 KILL"SCFk<." y 

2690 RETURN 

2700 PRINT J PRINT 

2710 INPUT "HOW MANY CASH ITEMS 

2720 IF NA=0 THEN RETURN 

2730 F-' E N " " s- iY 1 •> " T E M P 3 " x 

2 7 4 F E N " i: " > ^1^ 2 ? " C A S H 1 " ? 

2 7 5 1"- E N " " f ^11^ 3 J " S C R 7 % 

2760 Ta=0 

2770 INPUT#2vNCyCC 

2780 FOR i^=^i TO Nc n;NPUT#2 ? c:i* m:;2$ i- 

2790 PRINTtSs-Cl*? " > " 502*5 " 9 " 5Tlv 
2800 NEXT I 

2 8 1 P R I N T " E N T E R I T E M S I N R D E R » . . " 
DATEv TO WHOMs' AMOUNT" 



Tl 



2820 PRINl 



2830 
2840 
2BS0 
2860 
2870 
28B0 



PRINT 
FOR I^ 
INPUT 
PRINT^ 



1 ro NA 

Cli|;^C2ilii'T 
li/C:Li|i5 " i- " ?C2$5 

PRINr#3!'Cl$5 " V " 5C2f V 

r8=a"8 + T 

2890 A:i.(;i.2)^^:A:i.(:i.2)rT 

2900 NEXT I 

c(>^^a:;c-{T8 
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to 



X 

o 
oc 

iS 

CO 

LiJ 

a: 
o 
u. 

I— i 

u 
o 

W5 



CD 
OC 

>- 

a. 

o 
o 

u 
o 

3 



29 LO 
2920 
2930 
2940 

'■)<Jl=; 



2950 
2960 
2970 
2980 



„ . J 



: 1 TO 7 t READ D* t PR INT D$ 5 TAB < 1 ) ? J I NPUT RO 



CLOSE 1^2>3 

OPEN" I" ^rSf "SCR7" 1-0 

OPEN"0"!'#2j' "CASHl" i'O 

PRINT#2?NC+NAPCC5 

FOR 1^=^:1. TO NC + NA 

INPUT#3!'Cl*?C2$vT 

PRINT#2i'Cl$5 " 1- " 5C2$5 
2990 NEXT I 
3000 CLOSE 2 1.3 
3010 KILL"SCR7%0 
3020 RETURN 
3030 PR I NT 5 PR I NT SPRINT "ENTER RECEIPTS FOR EACH DAY' 

3040 R:l.=^^0 

3050 OPEN" I" !.*6i' "RECPT" ^0 

3060 0PEN"0"i>*5i."SCR7"i'0 

3070 OPEN"0" /#4i'»RECPi" i- 

3080 INPUT#6jNRyRT 

3090 RESTORE 5 FOR I 

3100 Rl:^:RlfRO 

3110 PRINT#4vR0 5 

3120 NEXT I 

3130 RT=:=frr + Rl 

3140 PRINT#5i.NRfl5RT5 

3150 IF NR^--^0 THEN 3170 

3160 FOR I^^=l TO NRJINPUT*6i'R2IPRINT#5vR2 5;NEXT I 

3170 CLOSE 4? 5!. 6 

3180 KILL"RECPT"i'0 

3190 NAME"SCR7" AS "RECPT" 

3200 RETURN 

3210 OPEN"I"i'#li'"BFILE".0 

3 2 20 IN P U T # 1 c K 1 1- K 1 '* i- C N * ? W E * > B 1 

3230 FOR 12-1 TO Bl rtNPUTtl v Al ( 12) J NEXT I2;iNPUT*l 

S5 > N4 > LT y LC ? NA !• T8 v CC t CLOSE 1 

3lf40 PRINTSPRINTJPRINTJINPUT'POSITION PRINTER AT P 

' WHEN READY" 5Af 

3250 WIDTH 132 

3260 OPEN ° ° !. #5 > " SCR8 " y 

3270 "OF'EN '^ I " ? #6 ? " RECPl " > 

3280_ilFili:'_r'jjL4jL^«£MPFL " ? 



yNPi-HT? 
AGE TOP 



SOi-Sli-S 
- HIT 



2 9 S3 ? S4 y 
'RETURN 



3290 OPEN M " !- #1 y ° TEMPI " 9 

3300 OPEN " I % #2 i- " TEMP2 " , 

331 OPEN " I % #3 ? « TEMP3 " , 

3320 FiESTOF;:EJFOF;: I-l TO 7;Fi:EAD ai$:next 1 

3330 ET==0?ES-'=:0 

3340 ]:NPUT#4 !- B:l. ; PR1NT#5 >Bl9 

33S0 OPEN "I", §7 9" PF- LE " !- : 1 NPLJT#7 ? NZ ? FU CLOSE? 

3360 FOFv' 1 = 1 TO 34 

3370 ON .1: GOSUB 3410 i- 3430 ? 3440 y 3450? 3460? 3470 1-3490? 3500? 3510? 3540? 3550!- 3 

560 ? 3600 ? 361 ? 3630 9 3660 ? 3670 ? 3700 ? 37 1 ? 3730 ? 3750 ? 3760 ? 3790 ? 3800 ? 3820 ? 383 

9 3840 ? 3890 ? 3900 ? 3910? 3920 ? 3930 ? 3940 ? 3950 

3380 NEXT I 

3390 G08UB 4020 

3400 FilETUFv'N 

3410 PRINTIPRINTIPRINTJPFaNTtPFaNT TAB( 30 )?" MINI -LEDGER " IPRINT 

3420 PR:i:NTTAB(41) i) "UCC - COPYRIGHT 1977 SCIENTIFIC RESEARCFr' { PRINT JRE 

TURN 

3430 PR I NT "BERT* NUMBER 

3440 PRINT "FIRM NAME 

3450 PRINT"FOR WEEK 'ENDING ?"?WE 

3460 F' R I N T " A L L S A I.. E S " t P R I N T 5 R E T U R N 

3470 PRINT" SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY 

■3480 P R I N T " F" R I D AY S A T U R D A Y " J 1=' R I N T J Fs' E T U R N 

3 4 9 F F^' 1 2 ■■-■■■ 1 T 7 1 1 N P U T # 6 ? R t P R I N T U S I N G " # # *««#.# # " ? R ? I N E X T 

PINTS PRINT J RETURN 

3500 PRINTUSING" THIS WEEK #«#####.## LAST WEEK «#######, :| 

T E # # # # # # # # , # # " ? R 1 ? R T - R 1 ? F^ T I P R I N T t P R I N T J R E T U R N 

3510 PRINT "PAYROLL " 

3520 IF NP>0 THEN RETURN ELSE GOSUB 3620 

3530 RETURN 

3 5 4 F-' R I N T 7 A B ( 3 1 ) ? " F^ R 8 G R S S F I C A F E D R L STATE M I S C 

RETURN 

3550 PRINT "EMP# SOC.SEC* NAME WKD WAGES AMT 

W ]: T H D E D W A G E S " J P R I N T S G = N P J R E T U R N 

3560 INPUT* 1 ? E0$ ? E 1 $ ? E$ 9 W6 ? WO ? Wl ? W2 ? W3 ? W4 ? W5 

3570 T 1 $::=M I D$ ( E 1 $ ? 1 ? 3 ) t T2$==M I D* ( E 1 $ ? 4 ? 2 ) S T34i=M I D$ ( E 1 $ ? 6 ) 

3580 PRINTUSING "\ \ \ \-\\-\ \ \ \ «# ####,## iH 



:"?K1?RETIJRN 
t°?Kl$; RETURN 



SPRINT SPRINT J RETURN 



12 S PRINT SP 



TO DA 

NET" S 
WITH 



## ###.# 



## . ## #### . ## " 9 E0$ ? Tl $ ? T2$ 9 T3$ ? E$ ? W6 ? WO ? Wl ? W2 ? W3 ? W4 ? W5 S G==^G- 



ISIF G^^=0 THEN RETURN ELSE G0T03560 
3590 RETURN 

3 6 P R I N T T A B ( 3 1 ) ? " - 

S RETURN 

3610 P R 1 NT r A B ( 2 3 ) 5 S P R I N T U S I N G " T T A L S 



#### #*##«.## ###,## ###,## *##.# 



'EXPLANATION 



G==0 THEN 



\ 
RETUR 



# ## , ## ##### . ## " 5 H 9 SO ? S 1 ? S2 ? S3 ? S4 ? S5 S PR INT S PR I NT S PR INT S RETURN 

3 6 2 P R I N T T A B ( 2 ) ? " N P A Y R L L T H IS WEE K ° S R E T U R N 

3 6 3 F- R INT" A / P " S F^' R I N T S P R I N T 

3640 IF N4>0 THEN RETURN ELSE GOSUB 3720 

3650 RETURN 

3660 PRINT "AC# CHECK # DATE TO WHOM" ? TAB ( 56 ) ? 

A M U N T " S G == N 4 S P R I N T S 1^' E T U R N 

3 6 7 I N F-' U T # 2 ? L 1 ? L 1 $ ? L. 2 $ ? L_ 3 $ ? A 1 $ ? L 2 

3680 PRINTUSING"**** \ \ \ \ \ 

\ \ #**#*#,**" ?L1?L1$?L2$?L3$?A1$?L2SG--==G-1S IF 

N ELSE GOTO 3670 

3690 RETURN 

3 7 P R I NT T A B ( 7 2 ) ? " - •■ - " S R E T U R N 

3710 PRINTUSING "OPENING BALANCE *****##*»** CLOSING BALANCE :| 

, ** TOTAL ******* , ** " ? LC 9 LC-LT ? LT S PRINT S PRINT S PRINT S RETURN 

3720 PRINT TAB(20)?"-- NO LEDGER ENTRIES -"SGOSUB 3710 S RETURN 

3730 PRINT "PETTY CASH" SPRINT: 

3740 RETURN 

3750 PRINT" DATE TO 

3760 I NPUT*3 9 C 1 $ ? 02$ ? T 

3770 PRINTUSING "\ \ \ ***#*. f* " ?C1$ ?C2 

*?TSG==G-1SIF G=0 THEN RETURN ELSE GOTO 3760 
3780 RETURN 



iPRINTSIF NA===0 THEN GOSUB 3810 ELSE RETURN 
WHOM " ? TAB ( 42 ) ? " AMOUNT " S G=:^NA S PR INT S RETURN 



o 
o 

o 
o 

-o 

-< 

PO 
I — I 






CO 

n 



m 

CO 

m 

TO 

o 



3 790 PRINT TAB (40) 5 "■ 



^etuf;:n 



3 8 P R :i: N T U S I N G " P E. N I N B B A I... ^11^ ^li^ i^ # i- i . % 1^ T T A I... # # % # # . 1^ il^ C L C) S I 

N G B A I- # * i # * if <, iP i^ " 5 C C ■ T 8 ■/ 1 8 v C; C X P P 1 N T % P R I N 1 % R £ T U R N 

3 3 :i. p R :i: Mr r a b ( 2 o ) 5 " no c a s i-i e- n r r i e s •■ " % r e t u r n 

3820 F-GR IV:-! TO 5 S PRINT 3 NEX I IM t PRINT " UCC ■•■• C0PYRI(3HT 1977* SCIENTIFI 

C R IE. 8 1=: A R C H " t P R 1 N T J P R I N T 1 1-' R I Hit P R I N T " E X F' E N 8 E; 8 " I P R 1 N T' % P R I N T S R E. T U R N 

3 i3 3 P R I N T " A C il D £ 8 C E^: ]; E-' T ,[ N T i-l i: 8 W E E- K L A 8 T W E P. K T H A T^ P. " t P R I N T I G 2 ■■■■:■■ B :1. 

i RETURN 

3840 INPUT#4i.EX 

3850 EL I' ■■■■^: E- T + E:. X t E 8 == E- 8 + A 1 ( B 1 • ■ G 241) 

3860 READ (;9yAi* 

3870 PRTNTUSLNG"#### \ \ #**###.*# **#####.*# ######*,#*" 509 vAl 

iiii-A:!. ( BI ■ G2 + :l. ) vEX^EXfAl <BI"G2f :l. ) t PRIN r#5 v EX-I AI ( B:L~G2i 1 ) v :G2^=^G2" 1 ? IE- G2^^^^0 

IHEN RETURN EESE GOTO 3840 

3880 RETURN 

3890 PRINT TAB (18) v " " S RETURN 

3900 PRINT TAB(9) ? S PRINTU8ING " T0TAL8 *#***##,## ##*####,## *#####*.*#" P 

E8 ■' ET > ES f ET t PRINT t PRINT t PRINT J REl URN 

3 9 :l, r^' R i N T " F' E;; O E^ :E T a N B L., 8 8 " t P R I N 1 1 P R I N T I R E T U R N 

^■-'VO PRINT IAB(12) 5 "INCOME EXPENSES PR0FIT/<L.0SS> " SPRINI ^RETURN 



3930 PR I NT" LAS r WK" ? TI/^^^^E 
3940 PRINT"TETI.8 WK " ? T! 7::^:E 
3950 PRINT " rO DATE" 5 i T7::::f 



R r - ■ R 1 I 7 B ■■■■^^ ET 1 1 9 ^=: E^ T ■- R 1 ••• E I I G 8 U B 3 9 6 ? E« E F U R N 

R 1 1 T B :■■■■■■ E 8 t J?:::' R I •■ E' 8 SO <;> U B 39601 R E T' U E^ N 

RT t ! 8^:^:E 1 f ES t T9:^::RT EI ES I GOSUB 3960 t RETURN 

3960 PRINT TAB(I) ? J PRINTU8ING "########. ## ########,.##" 5 I7vT85 

3970 IF SGN(T9)^^^^ :l TEIEN 3990 

3 9 Ei E-' E^ I N T U S .[ N G " * f- *■ * *■ ■* *■ it . f iE " ? 1 9 J E^ E T U E^ N 

3990 PRINTUSING " <#######* . ##> " 5 ABS ( 19 ) ? RE TURN 

4000 PRINT 

4010 RETURN 

4020 FOR 12^-1 TO 10 I PRINT ? NEX T 12 

4030 RETURN 

4040 PR:i;Nr*2yDl!.E0$i) » 1' " 5 El*!! " , " ?E$P " c " JEOi^DvEI ni:2!.Y0i'Yl i> Y2 >■ Y3 y Y4 v Y5 ? PO » P 

IyQ0i.Qli'Q2;RETURN 

4050 I NPUT #1 9 Dl 9 E0$ y El* » E$ > EO9B v EI y E2 i- YO y YI i' Y2 y Y3 ? Y4 y Y5 y PO y PI y QO y Ql y Q2 t R 

ETTJRN 

4060 KILL"TEHPI" yO 

4070 KILL"TEMP2"yO 

4080 KILL" rEMP3" yO 

4090 RETURN 

4100 END 

OK 



a: 



o 

i3 

cc 
u 

1—4 

u. 






O 
CO 






DC 

>- 

a. 
o 
o 

o 
o 
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FI LE CREATI ON PROGRAM 

This 2K program is used to set up the data files for 

initial operation of the four previous ACB programs. 

The data in this program should be replaced with your 
data, prior to being run. You will only need to en- 
ter one record per file, as the data base may be built 
while running the main program. Once your data base 
has been created DO NOT run this program again as it 
will destroy all of the existing data files. 






X 

o 

a: 

i2 
(/) 

u 
a: 

o 

HH 
U. 

\- 

z 
o 






to 

>- 

Dl 

o 
o 

u 
o 



The data files for this version of ACBS rev:!3 are not 
the same as that used in ACBS rev:80 shown at the end 
of this volume. Files created with the ACBSl program 
at the end of this volume will not operate with the 
four programs previously discussed, see rev:0. 
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:l.00 F'RINT 

•i.:i.o F'f;::i;nt"ucc ■ copyright vrr? ■■■■ by scientific research " 

:l. 2 P 1-^ :i: N 1 % !•■■ R I N T t P R I N 'If S 9 R I N T 

130 FOR D^^^l TO 7 

:1.40 ON I GO SUB 180 i- 220 i- 260 i- 320 ? 360 y 480 V 520 

150 NEXT I 

160 PRINT " FINISHED " 

170 END 

1 B P E N " " ■! -W 1 -J " 1. . E 6 E 1^' " i- 

190 PRINI #1 1- 1 ■' 123 . 45 ? 100 5 " 1 " P " s- " 5 " 8/10/77 " 5 " y " ? " HITER INC . " 5 " y " 5 123 , 45 

200 CLOSE 1 

210 RETURN 

220 OPEN"0" I'tli' "CASHl" vO 

230 F'R I NT# 1 V 1 i! 25 « 1 3 5 " 8/ 1 0/77 " 5 " y " J " D 1 ANE " ? % " 5 25 . 1 3 

240 CLOSE: 1 

250 RETURN 

260 OPEN"0" y#lv "EMPFL" vi) 

270 PRINT#l!-32 

280 PR:iNT#1i'123.45 

290 FOR T""l rO 31 n- PINT* I yO? J NEXT I 

300 CLOSE 1 

310 RE I URN 

320 OPEN"0" s'fSy "RECPT" K) 

330 PRINT #5? ly 567. 43 5 567. 43 

340 CLOSE 5 

350 RETURN 

360 OPEN"0" y#ly "PFLE" .0 

370 PRINT fly 4 5 80 

380 PRlNTflyly "6732" P " y " P "237621932"? " '/ " '^ "J. M. DOYLE" 5 " y " y 6 , 53 P 102 ? 17 5 

5.55 

3 9 F-' R I N T ■%■ 1 y y y y y 5 y y 5 y 5 

400 PRINT#ly 1 y "3112" V v '' 9 "698322679" V r' i "G.R. CRAHER" V' v " 5 3 . 18 ? 1 y 12 y 3 . 7 
5y 

4 :L 9 R I N T -W' 1 ? ? 5 5 y y y ? y P ? 

420 PRINr#l y J P "9:l 8" P " y " P " 183672110" 9" ■/" 9 "PHII JOHNSON" P " y " P 4 . 38 P 102 P 25 P 8 

.25? 

4 3 F-' R I N T •H- 1 y P 5 P ? 5 P 5 ? P P 

440 PRINTily 1 P "A671" P " y " P "823164312" V ■> " i "J. SWAIN" P " y " P 5. 75 PI 03 P ISP 4. 25 

y 

450 PR I NT# 1 y P () P y ? 5 y P P P P 

460 CL.OSE 1 

470 RETURN 

480 OPEN " " y *6 y " B I i. L " y ? F-'R I NT #6 y 1 

490 PR1NT#6 y 123 ? " RADCO FNC . " P " y " P " 345 FIRST " P " y " P " FARMINGTON HASS 10269 " 
^ P ° y " y617.92y "6/:l 2/7 7" ? " y " PO 

500 CLOSE 6 

510 RETURN 

520 OPEN"0" y#7y "I NO" yO 

530 PRINT#7yl 

540 PRINT#7y234y32?781P "FILE" P " y " P 4 .39 P 16 P 32 P 12 P "6/27/77" P " y " P8.78 

550 CLOSE 7 

560 RETURN 
OK 
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MOST USED 



i-i 

X 

u 
a: 

iS 

<n 

Ui 

on 

u 

►-I 
u. 
t-t 
i- 



u 

Ui 



BASIC 



CD 

(T 

>- 
Q. 
O 
O 

U 
O 

3 



STATEMENTS 



REQUIRED FOR 



OPERATION OF PROGRAM 



STATEMENT REMARKS 



FOR TO STEP Sets up a program loop. 



X 

o 

STATEMENTS < 

<n 

CC 

o 

DATA Used to input data through ji; 

Read statements ^ 

UJ 

DEF FN_ Defines special user '^ 

functions 

DIM Reserves space for 2; 

variables before they ,_ 

are used in program g 

I— t 

END Last Step in program g; 

o 
o 

_„ o 

Used with NEXT statement % 

FRE (X) Returns number of free 
Bytes in memory 

GOSUB Transfers control to 

subroutine 

GOTO Unconditionally transfers 

control to line specified 

IF THEN Conditional statement to 

transfer control on 
certain conditions 

INPUT Used to enter data from 

external source 

LET Used to assign a value 
to a variable 

LIST Prints the program currently 
in memory 

NEXT_ Placed at end of a FOR Loop 

NEW Clears program memory area 

ON X GOSUB Transfer control to the Xth 

line numbered subroutine 

ON X GOTO Transfers control to the 
Xth Tine" 

PRINT Used to print out data 
to external device 
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EXTENDED STATEMENTS 
STATEMENT REMARK 



couble precision 



on disk X 
FILES X Prints list of files 



DC 
I- 

co 
2: 



X 

o 

cr 

CO 
LU 

o 



CLOSE Used to close open ti. 

disk files P 






DEF DBL Defines variables as o 



</5 



DSKF X Returns free D Bytes 2 



^ 



tD 



on disk drive X >- 



GET #X Retrieves Random file 

#X o 

INPUT #X, __ Used to input data 
from file #X 

KILL Deletes a file on disk 

LOAD Loads a disk file into 

working memory 

L PRINT Used to transfer control 
to line printer each 
time used 

MOUNT X Used to initialize the 
disk on disk drive X 

OPEN #X,__ Open file #X so it 
may be used 

PUT #X Transfers Data from 
program to Random disk 
file #X 

SAVE Saves program in memory 

under name specified 
on disk 

TROFF Used as debugging aid. 
Turns off TRON 

TRON Used to print line 
numbers as program 
executes 

UNLOAD X Closes all the files 
on disk drive X 
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ASC (X$) Gives a decimal number 

for the first character \^ 

of string X$ ^ 

CHR$ (X) Generates a single j:: 

character having the 3 

ASCII value X k_ 

LEFT $(X$,I) Returns the left most 



CD 
I— I 

cc 
I characters of X$ ol 



LEN (X$) Gives length of string 
X$ 

MID $(X$J,J) Returns J characters 
of X$ starting at the 
Ith character from 
the left 

RIGHT $(X$,I) Returns the right most 

I characters of the 
string X$ 

STR $(X) Generates a string which 
represents the decimal 
value of X 

VAL (X$) Gives the number re- 
presented by the string 
X$ 
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FOREWORD 



THE ENTIRE SOURCE CODE FOR THE ACBS REV: 80, A COMPLETE 
BUSINESS SYSTEM PROGRAM IS NOT INCLUDED IN THIS VOLUME. 
MOST OF THE REPORTS AND OPERATIONS GENERATED BY IT ARE 
ILLUSTRATED IN THIS VOLUME. THE SUBJECT MATTER THAT IS 
PRESENTED WILL HELP THOSE THAT ARE PROGRAMMERS TO DEVELOP 
SIMILAR OPERATING PROGRAMS, AS IT OUTLINES THE STANDARDS 
THAT ARE REQUIRED AS A MINIMUM FOR SETTING UP A PROGRAM OF 
THIS MAGNITUDE AND COMPLEXITY. BY SIMPLY FOLLOWING THE 
EXAMPLES GIVEN IT SHOULD BE POSSIBLE TO MAINTAIN YOUR 
COMPANY RECORDS WITH ONLY A MINIMUM OF EFFORT AND TRAINING. 
FOR THOSE THAT USE ACBS REV. 80 OR SIMILAR PROGRAMS WE HAVE 
GENERATED SPECIAL FORMS THAT ARE APPLICABLE TO DATA BASE 
ENTRY AND COMPUTER OPERATED PRINTERS. COPIES OF THESE FORMS 
ARE SHOWN NEAR THE END OF THIS VOLUME AND MAY BE REPRODUCED 
OR ORDERED WITH YOUR COMPANY HEADINGS THROUGH OUR SALES 
OFFICE. 

FOR THOSE OF YOU THAT WISH TO MODIFY OR MAKE SUBSTITUTIONS 
FROM THE MATERIAL PRESENTED IN THIS SECTION, THE FOLLOWING 
SETS FORTH AN EXAMPLE OF THE CHANGES THAT CAN EASILY BE 
MADE. THE TAX ALGORITHM SHOWN ON PAGE 1077 CAN BE SUBSTI- 
TUTED FOR THE LESS COMPREHENSIVE TAX ROUTINE IN THE PAYROLL 
PROGRAM SHOWN IN VOLUME III AND ALSO IN THE PAYROLL SECTION 
OF ACBL, AT THE FRONT OF THIS VOLUME. WHEN MAKING THIS 
SUBSTITUTION BE SURE THAT YOU ADD 100 TO THE NUMBER OF 
DEPENDENTS FOR MARRIED PERSONS AND MAKE THE APPROPRIATE 
VARIABLE AND LINE CHANGES SO THE TWO ROUTINES WILL MERGE, 
IE; IN VOL. HI'S PAYROLL PROGRAM - DELETE LINES 1540 TO 
1600 AND ENTER LINES 7^00 TO 9500, BE SURE TO RENUMBER THEM 
WITH THE LINE NUMBERS DELETED. THEN ADD LINE 1536-D=D{I): 
G0=Z7: N2=H AND LINE 1603-P2=F2, DON'T FORGET TO UPDATE THE 
NEW FICA INFORMATION IN LINES 1485 AND 1490 AS A RESULT OF 
THESE CHANGES. WITH A BIT OF EFFORT, ONE, WITH SOME KNOW- 
LEDGE OF PROGRAMMING CAN STUDY THE REPORTS GENERATED HERE 
AND MAKE THE APPROPRIATE CHANGES TO THE MINI-LEDGER PRO- 
GRAMS, SHOWN IN THE FRONT SECTION OF THIS VOLUME AND ACHIEVE 
A PROGRAM TAILORED EXACTLY TO HIS NEEDS AND ONE THAT WILL 
RUN IN HIS SYSTEM. YOUR FIRST OBJECTIVE WOULD BE TO WRITE A 
LINKING PROGRAM ClF YOUR SYSTEM CAN HANDLE OVERLAYS) TO 
ALLOW AUTOMATIC UPDATING OF THE VARIOUS DATA FILES AND FULL 
LEDGER OPERATION. IF THIS IS DONE YOU MAY NOT WANT TO USE 
THE FILE CREATION PROGRAM ILLUSTRATED ON PAGE 972 AS THE 
MORE COMPREHENSIVE DATA GENERATOR SHOWN BEGINNING ON PAGE 
1078 WOULD BE MORE APPROPRIATE, ITS USE IS ILLUSTRATED 
STARTING ON PAGE 1059. REMEMBER YOU WILL HAVE TO ADD AND 
CHANGE THE DATA FILE VARIABLES IN THE MINI-LEDGER PROGRAMS 
TO CONFORM TO THE ELEMENTS OF YOUR NEW DATA BASE. 

ACBS REV:80 IS ONLY BEING SOLD THROUGH DEALERS, AS IT RE- 
QUIRES A VERY SOPHISCATED COMPUTER SYSTEM FOR OPERATION AND 
WE DO NOT OFFER THIS SOFTWARE ON MACHINE READABLE MEDIA. 
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A COMPLETE BUSINESS SYSTEM (rev:80) | 

2 

Ul 

A Complete Business System rev: 80, is a computer program designed to keep °= 

all the business records for a company. It allows the user to update all ^ 

company data on a daily, or weekly, or monthly basis and includes a special li 

search feature for locating specialized entries. While it is expressly de- ^ 

signed fro use by businessmen it can very easily be utilized by accountants ^ 
to maintain company records and generate financial reports for their clients^ 

The program is really quite versatile, allowing records to be maintained in „ 

a variety of formats, dependent of course on how the data files are created f: 

and how the transactions are handled. Under the accrual method all trans- S 

actions would be entered as they occurred, whereas under the cash method ^_ 

transactions would only be entered when cash was received or paid out; both g 

methods use a double entry system. As most businesses use a hybrid system, S 

their entries under this program would be made in much the same manner as ^ 
they are presently being handled. While it would be best to update the pro-S 

gram daily or as each transaction is made, it may be updated periodically o 

with no loss in continuity. ^ 

Before the program can be used the business must be completely described in 
the data files. This is done by first running the creation program ACBSl, 
which is self prompting and fully instructional. Prior to entering your 
data base it is recommended that you study the examples given for creating 
a data base. The examples have been designed to show the user the types of 
data to be entered and the amount of detail required. As a data base us- 
ually takes a considerable amount of time to generate, the creation program 
allows for a respite every so often, if desired by the operator. To avoid 
serious errors the data files should be listed after they have been entered 
or a listing should be made during the time of entry. This listing should 
be checked for accuracy as these files describe the business in detail and 
an error in one of the year-to-date entries could drastically effect the 
results of some of the reports. Once it has been determined that all the 
data has been entered properly, then the main program; ACBS rev:80, may be 
run anytime. It is suggested that ACBS rev:80 be updated at least once a 
week and preferrably daily, so as to reduce the possibility of errors as- 
sociated with typing in many updates. Pay attention to the order in which 
data is asked for in the ACBSl section as related data is entered in the 
same order in the main program; ACBS rev:80 and this program does not 
fully redefine the input sequences for entering data. It was necessary to 
delete this information from the main program in order to reduce the amount 
of memory required to execute the program. While it would have been nice 
for the newcomer and an aid for any operator, the extra memory overhead of 
12,000 Bytes could hardly be justified in most small systems. As an alter- 
native, it is suggested that you keep a copy of the various input sequences 
required for each input, near the system for the operator to refer to dur- 
ing data updates. 

At the time of this writing there are only a few Basics available that al- 
low sufficient precision for business use. Most of the Basics will only 
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allow six to eight digits of precision which is unfortunate, for eight ^ 

digits will not allow grand totals to reach $1,000,000.00. For a n^t)i 2 

small business this might suffice but even they would have problems S 

with only six digit accuracy. Six digit precision would limit the user ^ 

to figures of less then $10,000.00, which is hardly practical when you ^ 

consider most individuals earn at least that or more annually. In addi- h 

tion to the precision limitation, ^^zv)] few Basics offer formatted print fe 

statements. Those that do, mostly use the "Print Using" statement, how K 

ever a few use the "Digits" statement. Those of you that only have the ^ 
Digits command will have to convert all of the Print Using statements to 

a form accepted by your Basic. This particular conversion will not be f: 

presented here as most of these Basics are not sufficiently powerful to S 

execute data files in reasonable time frames or to allow adequate pre- h 

cision for calculations. A suggested method for converting a "Print 5 

Using" statement follows: 2 

>- 

Ex: Print Using - -, X, Y,.... 5 

Remove the Print Using line and substitute the following o 

routine, each time it is used throughout the programs. ^ 

n — A 

Gosub 

X$ = A$ 
Print X$, 
A = Y 

Gosub 

Y$ = A$ 
Print Y$, 

Then: this is the subroutine the above Gosub's branch too. 
1 A = INT (100* A=.5)/10 

2 B = A INT (A) 

3 if B J then 8 

4 B = A/10 INT (A/10) 

5 if B J then _ 10 

6 A$ = STR$ (A/10) + ".00" 

7 Return 

8 A = A/10 

_ _ 9 Return 

_"_ 10 A$ = STR$ (A/10) + "0" 

If the above subroutine will not operate in your Basic use 
this subroutine: 

1 A = INT (100 * A + .5)/100 

2 A$ = STR$ (A) 

3 F or I = 1 to 12 

4 B$ = MID $ (A$, I, 1) 
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5 if B$ = "." then 7 a 

6 Next I § 

7 A$ = MID $ (A$, 1,1+2) 

8 Return 
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The first subroutine is preferred over the second one as in the ^ 

second sub it may be necessary to check for zeros after the tl 

decimal point in some Basics. en 

The ACBS rev: 80 programs are written using data files. These data files [:: 

should be on a disk system rather then a tape, digital cassette, audio S 

cassette or other tape medium due to their slow access and search speeds. ^_ 

The disk should have a minimum storage of 250K Bytes as the source code g 

for the main program requires about 80K Bytes of overhead storage, however 5 

as the program uses overlay and paging techniques it can be run in most ^ 



o 



systems with 28K of free memory. o 



The data files in these programs are accessed with the Input # , and 

Print # , statements. They are opened for use with the Open "0", , 

"File Name" and Open "I", , "File Name" as these data files are ASCII 

sequential. If your Basic uses statements other then these disk state- 
ments for data file control, then the above should be changed to match 
those statements used by your Basic. The above statements are used fre- 
quently throughout these programs so you need to be sure that all of them 
have been changed to statements your Basic understands. As an example of 
these differences Processor Technology's Basic uses the Write # as op- 
posed to our Print # statement and they use the Read # as opposed to 

our Input # statement. 

The data files have been structured to contain the company records in an 
easily accessable form, utilizing a minimum number of data files to handle 
all of the records. A listing of the data sequence as contained within 
each file follows. 



o 
o 
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FILE STRUCTURES 
(In order of file Input sequence) 
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File #1 - MISC. § 



11 ( program run.#), Total Cash Sales to date of last P & L statement, o 

Cash sales this period (since last P & L date). Cash on Hand, C 

Company equity. Sales Tax %, Name, Address, City State, Zip, Type P 

of Business, N (# of additional assets accounts), lAsset $ value, lu 

asset description!, (1-12) ITotal $ year to last P & L for each, ^ 
Total $ period to date for each expense. Expense # (1-12),1, total 

earnings to last P & L. i^ 



File #2 - A/P 



n# ( number of accounts). Account Description ( less then 18 characters). 
Payee # (or Vendor#), day of the month payment due (1-31), Present 
Balance Owed, Type of Account (1 -Mortgages, 2-Loans, 3-Taxes, 4- 
Other A/P), $ payment due, $ payment made to each account. 

File #3 - A/R 

N# (number of customers). Customer #, Customer Name, Street address. 
City, State, Zip, Total $ sales yr. to date, Total sales since 
last P & L, # of outstanding transactions, litem #, Quantity 
purchased, Unit Selling price, month (1-12) of purchase, day of 
purchase. Payments made in $'s. Description! 

File #4 - EINV 

N# ( number of items on inventory). Item #, Description, Cost, 
Salvage Value, Life (in years), year put in service (ie:!977), 
month put in service (1-12), Type of Depreciation (1-S.L, 2-DDB, 3- 
SYD, %-Dec. Bal.), total $ Deprec. to last P & L (for each item). 

File #5 - MINV 

N# (number of items in saleable inventory). Item #, Class #, 
Vendor#, Item Description, Unit Cost, Unit selling price, total # 
purchased to date, total # sold to date, month of last sale (1-12), 
day of last sale for each item # (1-31), # purchased to last P & L, 
total # purchased this period. 

File #6 - PAY 

# of employees, # of hours in each pay period. State Unemployment 
%, employee #, social security #, Active Emp., Name, St. Add, City, 
State, Zip code. Rate of pay $, # Dependents, $ Deductions (Ins. 
etc.), Misc deductions $, total $ Gross pay (year to date), total $ 
FICA witheld year to date, total $ Federal Tax witheld year to 
date, total $ State Tax held year to date, total $ Gross pay this 
period to date (or since the last P & L) , total $ Taxes paid for 
employee this period (ie: U.I, State taxes, FICA, etc.). Wages this 
quarter, FICA this quarter. Fed. taxes this quarter. 
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The saleable or merchandise inventory contains quantity on hand and unit 
cost. The unit cost of each item may be changed each time it's quantity 
is increased or the inventory is updated. Each time an inventory item 
is purchased the inventory must be updated. In addition to updating the 
inventory section the accounts payable section will also have to be up- 
dated. If the transaction involves cash being paid out at the same time 
the inventory item is purchased then update or create; A/P account #010. 
The updating consists of entering the amount of the purchase and also en- 
tering this same amount as a payment. This allows the #010 account to 
zero itself and also subtracts the payment from the Cash on Hand account, 
contained in the Miscellaneous file. 

All entries in Inventory, A/P and A/R will have to be entered twice, as 
the program is based on a double entry system and these three sections 
are interactive. Every time a bill comes in it can be added to its re- 
spective account, unless it is one of the twelve itemized expense items. 
These items are updated in the expense section when the bill is paid. 
All other bills are added to the A/P section when they are received. If 
it is necessary to add to your Cash on Hand as a seperate item then up- 
date the A/P account #010 and enter a negative amount equal to the amount 
of cash to be added as a purchase and then enter this same negative a- 
mount as a payment, this zeros the #010 account and adds the amount to 
Cash on Hand. 

The A/R (Accounts Receivable) section will update cash on hand but not 
the inventory section. Therefore for each transaction it will be nec- 
essary to first update the A/R section and then update the inventory 
section by subtracting the quantities for each item sold. To add cash 
sales to cash on hand, enter a transaction to the A/R #010 account as 
a receivable and then enter it again as a payment with both amounts be- 
ing equal. This allows the cash sales account to zero itself while at 
the same time updating cash on hand and generating a cash sales log for 
future records. If this log becomes too long it may be reduced by an 
appropriate entry at the end of the A/R updating section. Whenever a 
customer makes a payment on his account it is automatically added to 
cash on hand as soon as it is entered as a payment. 



z 
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a: 
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The file structure listing should be used as a reference and referred to g 

by the user until becoming familiar with the sequence and type of data «] 

used in the files. When updating the program data or entering transac- a: 

tions the user should carefully follow the examples set out elsewhere in y 

this volume to reduce the chance of erroneous entries. li 

The A/R (Accounts Receivable) section allows the printing of all accounts y 

that are older then 30 days. If account aging is desired it will have to o 
be done through a dummy account set up in the A/P (Accounts Payable) file. 

For example: An A/P account #30, aging 30 days can be set up, likewise [:: 

one for 45, 60 and/or 90 days may also be set up. Enter the amount of 3 

aging desired as a purchase or bill but Don't enter any payment. To zero j_ 
an account enter a negative purchase equal to the amount still owing. 
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< 
On the following pages are sample listings containing a number of errors «] 
that were purposely made when the data was entered. These errors were f^ 
corrected by using the delete character function in the Basic operating y 
language. On the terminal we used to enter the data the corrections \ti 
were made by using the RUB key, on other terminals it may be labeled DEL ^ 
and still others may label it with some other coding. Some of the y 
Basics available today for small computer systems may not have this ^ 
feature incorporated in its commands. The sample listings demonstrate 
how the various portions of the ACBS rev: 80 program work. These listings [£ 
are presented in precise detail and if the examples are followed the ^ 
unintiated user should be able to geneir^ate any of the numerous reports ^_ 
available under this program. g 

1—1 
>- 

Q. 

o 
o 

o 



All of the reports shown near the end of this manual were run using the 
data base created by the ACBSl program. Data was originally entered on 
data entry sheets designed to aid the user in switching from a manual or 
semi automated system to a completely computerized system at any point § 
in the year and then entered into the ACBSl program to generate a data 
base from which the reports are then printed. Reproductions of the 
actual data entry sheets used in creating the data base are displayed 
near the end of this manual along with blank copies of the forms. In 
the sample listing all user entries are heavily underlined in contrast 
to the program prompts which are not. It is especially important to 
always run and terminate the program in the normal manner, as requested 
by the menus, otherwise the program or your data base may be damaged or 
destroyed. 

Yearly changes or updates to the tax algorithms in the payroll section 
are accomplished by typing in the number of the line or lines; one at a 
time, followed with the amended line data. Federal taxes are for the 
year 1977 and state taxes have been set to that used by the state of 
Maryland for 1977. After the changes have been made, save them by 
typing SAVE "PAY PROG. This will delete the old disk copy and replace 
it with the amended program. Do not try to run this except in the 
normal manner by typing RUN"ACBS otherwise the ACBS programs may be 
damaged or destroyed. 

Before printing checks W-2's, mailing labels or other imprinted or 
special form paper, it must be inserted in your printer and aligned for 
printing. The program will stop when it is ready for the new forms and 
waits for you to change the paper. When the forms are in place and you 
have aligned them properly, then enter the starting number or a carriage 
return, depending on the form in question to start it printing. You 
should check the first form while it is being printed to make sure it is 
lined up properly. If the form isn't printing properly then pause the 
computer and readjust the form, the first form may have to be redone 
manually after the printing has ended if it was initially printed in the 
wrong areas due to misalignment. If you use your own special forms or 
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special printer, then the tab or skip statements in the various pro- u 
grams may have to be changed to accomodate spacings different from 
those initially set in the programs. The spacing in the programs 
are presently set for the forms displayed near the end of this volume. 
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The sample reports for the ACBS rev:80 program should be used as a 
guide only, as they were not all run sequentially as shown. The pro- 5n 
gram was actually run a number of times to generate all of the examples ^ 
given and these were then grouped together to illustrate individual g. 
section operations. Each time we ran the program the data base was un- h 
dated per the simulated daily business transactions, however, as we h 
tried to present the data using one date the totals shown on some of cd 
the examples may not be what one would expect. This should not be con- S 
strued to mean the program is not running or calculating properly, as it ^ 
actually is; it simply shows what happens when you try and fool the S 
program. As a prime example of what we are talking about, on the check o 
register, all the A/P checks appear to have been run three times on ^ 
September 7, 1977. We had chosen an arbitrary date of September 7, 1977 
so as to make all the examples appear as continuous daily activity for 
one day although actually run on several days; however, the program 
didn't know we were only trying to demonstrate its capabilities and re- 
corded the daily transactions as if they were legitimate entries each_ 
time we ran the program and as you can see in the check register listing, 
the program has given our method of demonstrating away. 
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The examples given in this section will enable the reader 
to become familiar with running reports, updating infor- 
mation and normal program termination. Subsequent sections 
will illustrate individual program sections in more detail. 



UCC COPYRIGHT 1977, SCIENTIFIC RESEARCH-PROPRIETARY PACKAGE, 
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'^^-%% tiCTr---copYRiGHr-r977 --Br-sci!:-hrf:ffT:c--REeEARCH**- - -^ 

in 
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... ^ - . , -. an 
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THIS IS A GENERAL LEDGER BUSINESS F'ROGRAH £ 

IF PROPER! Y UPDATED. IT WILL MAINTAIN ALL OF YOUR COMPANY RECORDS h 

^^ ANDPREPARE ALL -OF- YOUR FIMANCMb- REPORTS *— - -- - us 

o 
en 



TYPF IN TODAYS DATE ASt DEC . ^ ISs- 1976 ? SEP. ^7^1977 
HOW MANY DISC DRIVES DO YOU HAVE ON YOUR SYSTEM? X 

** UCC-COPYRIGHT 1977- BY SCIENTIFIC RESEARCH** 



THE FOLLOWING IS A LIST OF THE ACCOUNTS THAT CAN BE CALLED. TO SELECT 
ONE!- TYPE ITS NUMBER WHEN ASKED WHICH ACCOUNT. 



1 --^-ACaW N T S" -pftYABtE 

2 - ACCOUNTS RECEIVABLE 
3^^" FINANCTAL -STATEMENT^^-^ 

4 - MERCHANDISE INVENTORY 

5 •- NON-SALEABLE INVENTORY 

6 - PAYROLL 

-'r--=-cr-rECK- register 

8 - END 
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WHICH ACCOUNT DO YOU WANT? X 



** UCC-COPYRIGHr 1977- BY SCIENTIFIC RESEARCH** 



THE A/F' SECTION OFFERS' FOUR "MODES OP^ OPERATIONt" 
1 •- A/P LEDGER 

2- PRINT A/P CHEC^O - ' 

3 - UPDATE THE A/P'S 

5 - FINISHED WITH A/P'S 
WHICH DO YOU WISH TO 'DO^i^- 1 
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r(3TAL MONTHLY PAYMENTS DUE 'i:L»102.56 
TOTAL TIME BALANCES LEFT OWING $42» 035 . 22 



THE A/P SECTION OFFERS FOUR MODES OF OPERATION: 

1 ~ A/P LEDGER _ 

2 - PRINT A/P checks"' 

3 UPDATE THE A/P'S 

4 - UPDATE EXPENSES 

5 - FINISHED WITH A/P'S 

WHICH no YOU WISH TO DO? 5 ' ^" ' ' 



** UCC C0PYRT(3HT 1977- BY SCIENTIFIC RESEARCH** 
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A/P 


LEDGER 


. date: 


SEP. 7, 


1977 


^ 


ACC. DESC. ^ '"" 


PAYEE * 


. _._.^_-__.^^__. 


'ACC".'"m-'E 


"" nuE 


DATE 


BALANCE 'H 


SUBURBAN TRUST 


165 


295.72 


MORTGAGE 


25 




236 IS. 7 1 S 


LAFAYETTE ELEC. ._ .^ 


_190,_ 


87,63 


OTHER 


IS 




2383.12 al 


ALLIED ELECTRONICS 


135 


347.25 


OTHER 


5 




o 

11871.16 " 


FORD CREDIT 


110 


187.50 


LOAN 


2 




3119.81 y 


CHEMICAL BANK 


.... 11.5_„ 


.-„6Z-,21 _ 


.LOAN 


30 




912.67 


CASH EXPENDITURE 


10 


117.25 


OTHER 







117.25 


AGIN(3 - 30 DAYS 


30- 


0.00 


OTHER 







5 . 00 


AGING - 45 DAYS 


,45 


.0.00 . 


OTHER ._ 


.0 




0.00 


AGING - 60 DAYS 


60 


0.00 


OTHER 







0.00 


AGtNG •■ 90 DAYS 


90_ _^ 


O.pO 


OTHER 







0.00 


AGING -„OyER 90 _ 


99 


0.00 


OTHER 







7.50 
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THIS IS THE ACCOUNTS RECEIVABLE SECTION. 

if WILL ^HANDLE ALL YR Ah! SECTIONS INVOLVING SALES . p: 

^ s 

IT 'OFFERS TEN ""MOriES OF "OPERATrdN S H 

1 -• A/R LEDGER g 



AUTO ENTRY TNVOICING a: 



3 ■■ JiAli.Y INVOICE 1 UG 



4 • PRINT MAILING l„. ABELS 

5 ■ PAST DUE ACCOUNTS I ISl 

6 •■ PRINT CUSTOMERS BILLS 

7 SAI ES REPORT 



>- 

CL 



O 

Z3 



8 
9 


SORT ACCOUNTS 

UPDATE CUSIUMER ACCOUNTS 




10 
UHICII WOULD YOl 


FIN, [SUED WnU A/R SECTION 
1 1 1KF TO riiri> 4 




THIS SECTION PRINTS - 2 5/8 IN. MAILING LABELS k 


SORTED OR UNSORTED ON A 


STANDARD GUMMED ROLL. IF THE LABELS ARE SORTED 
THERE IS A POSTAL RATE BREAK. 


BY ZIP CODE SEQUENCE WHEN MAILED 


DO YOU WANT TO SORT THE LABELS (Y OR N)? Y 
THE SEQUENCES ARE J 




1 
2 


- CUSTOMER # 

- CUSTOMER NAME 




3 
4 


- CITY 

- STATE 




5 

6 


- ZIP CODE 

- # OF TRANSACTIONS 




7 
WHICH SEQUENCE? 


- EXIT WITHOUT SORTING. 
3 




DO YOU WANT TO PRINT ALL THE LABELS > OR BETWEEN 
WHEN LABELS ARE IN PLACE. TYPE A (CR)? 


TWO LIMITS (A OR B)? A 
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.^ZllAriH ___„_ ^ 

WESTHAM SALES CO* §"■ 

3 2 7__.H.K ^ C H E R R Y^_ JJ T . S 



MELROSE !. IL. 37215 






o 



78192AC " t" 

DIGITRAN 



3421 LAWRENCE ST /^^^ ~ ^" £"^ 

PASADENA? C A. 91105 ^ 



X 
CD 

—— . . ^ ___^ I— I 

>- 

a. 

o 

, j_j__ 

93 216IIA y 

SUPERIOR ELECTRIC ^- 

BOX 30 



READER!- PA» 16804 



51376H 
OMEGA 



P.O. BOX 4045 
STANF'QRDy N.J. 912M\ 



DO YOU WISH TO PRINT ANOTHER SET OF LABELS (Y OR N) ? Y 

DO YOU WANT TO PRINT ALL THE LABELS, OR BETWEEN TWO LIMITS UTOR^J'?^ 

JO.. YOU WISH TO BLOCK BYt 



1 - CUSTOMER NUMBER 

2 - CUSTOMER NAME 

3 - CITY ~ 
Ij: STAJEZ_ 

5 - Zip "'CODE "'^ 

6 - NUMBER OF TRAN SACT TONR 



WHICH? 5 

JF-XQJLJ«,SH_ig^LJ.STJJP„igj-HELWPEFl_^ THEN INPUT A (CR), OTHERWISE 
INPUT THE LOWER LIMIT. "" 

_..^ 992 



IF YOU WISH T0_^L1ST 0^'-^ ^^ ^^ SPECIFI C GROUP >■ ENTEER THE UPPER LWU r 



z 



EQUAL TO THE LOWER LIMIT* <} 



UJ 



LOWER LIMIT? 30000 S 

U PPER LIMIT? 50000 -^ 

WHEN LABELS ARE IN PLACE *■ TYPE A (CR)?„„ u. 



(/) 



N 
a 



CD 



>- 

4 5686 ^g- 

REMINGTON CAN C0» „ 

2314 S H E R W D AUE ^ o_ 



LAKESIDE f TX» 45217 



37116DH 

WESTHAM SALES CO* 



327 N. CHERRY ST* 
MELROSE? IL* 37215 



JO_Y U _W LSJL TO PR IN T ANOTHER SET OF LABELS (Y OR N)? N 

1 ~ A/R LEDGER 

2 - PRINT MAILING LABLES 



3 - PAST DUE ACCOUNTS LIST 

4 - PRINT CUSTOMERS BILLS 



5 - SALES REPORT 

6 - SORT ACCOUNTS 



7 - UPDATE CUSTOMER ACCOUNTS 

8 - FINISNED WITH A/R SECTION 



WHICH WOULD YOU LIKE TO D0?_^ 
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jmig !•' 1 1 y' P I- f - T T n N A I... I.- W S Y OU T S R T Y U R . A.llU-iEmRlLS^IiLj^_MAE,.|JLLY J2E fe^ 

SEQUENCES AND THEN PRINT A REPORT, - 



THE SEQUENCES ARES cc 

L, - CUSTUMilLJ: w- 

2 - CUSTOMER NAME u 



3 - CITY 



STATE 
ZIP CODE 



o 



6 - # OF TRANSACTIONS 

7 - EXIT WITHOUT SORTING, 



l- 
u 



WHICH SEQUENCE T_7 ^ 



THIS IS THE ACCOUNTS RECEIMABLE SECTION. p; 

xr^jA)^iu=_.±LAMLLlL^AL4^-JTi^M:3j^Q:n:j^ g^ 



XT FFFRS EIGHT M ODES OF OPERATION I . ^ . _.._.___ . g- 

I - A/R LEDGER ^ 

^2 _jr PRINT MAI 1... IN G L ADLES >^ 

3 -TaST DUE ACCOUNTS LIST o 

^4 ri^PllINT CUST0MERS_BILI.J5. 

5 - SALES REPORT 

6 - SORT ACCOUNTS 



SALES REPORT " " ' '^^ ^ o 



7 ■- UPDATE CUSTOMER ACCOUNTS 

8 -- FINISNED WITH A/R SEC HON 



WHICH WOULD YOU LIKE TO D0?_7, 



FOR EACH ACCOUNT CHANGE. ENTER A NUMBER DEFINING TH E CHANGE, 
_ ______ — 

1 - OLD CUS TOMER UPDATE 

2 - ADD NEW CUSTOMER 
WHICH 0NEEJL„2 



E N T E R NEW CU, #y NAMEy ST . y CITYi- ST,y ZIPy # OF TRANSACTION S, 



'i' AA723IAy WILSON SUPPLY. 315 WESTWOOD v RICHMOND ? UA , y220e6yl 

IM LIJl j;- AJJ^ _ * ' QUAN T ITY y UNIT PRIC E_i^i OJi'LH v DA Yy PA Y MENT^ DESC. 

? £)76512y2v6,36.6^25^ 10? WIRE MESH 



Tor EACH ^ACCOUNT "change!)- ENTER A NUMBER DEFINING THE CHANGE, 

~ END ._ 



1 ~ OLD CUSTOMER UPDATE 

2 - ADD NEW CUSTOMER 



WHICH ONE? 



IF YOU "have excessive TRANSACTIONS FOR ANY OF YOUR 
CUSTOMER S YOU WOULD LIKE TO REMOVE > TYPE A '1' OTHERWISE 
TYPE A '0'? 



THIS IS THE ACCOUNTS RECEIVABLE SECTION, 

IT WILL HANDLE A L L TRANSACTIONS INVOLVING SALE S, 



IT OFFERS EIGHT M ODES OF OPERATION; 



1 A/R LEDGER 

2 PRINT MAILING LABLES 



3 ■- PAST DUE ACCOUNTS LIST 

4 - PRINT CUSTOMEJa'S B^ILLS^ 
"5""-- ^SALEEf REPORT " 

6 - SORT ACCOUNTS 



7 - UPDATE CUSTOMER ACCOUNTS 

8 - FINISNO WITH A/R SI.'f C'II ON 
"wiHICI-i'wOULrr Y0Lr^"LiKErT0^'"Dr)?_7„ 
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ri-iXS IS ri-IE ACCOUNTS RECEIVABLE SECTION. 
-,t-T UILL-JJAtJDLE-^iU lEAMSACTIGNS TMiJmjJ.TNfi RftlFS, 



LJ 



O 
ifi 



iX - Of KERS EIGHT- MDIlES^^QF _, QEERALUQtll 

1 - A/R LEDGER 

. . , 2 ^-J^EIHX^-MAILIMG - LABLEB 

i - PAST HUE ACCOUNTS LIST 

4 - PRTMT CUST OMERS BIL LS 

5 - SALES REPORT 

6 - S ORT ACCOUNTS 

CUSTOMER ACCOUNTS 



WHICH WOULD 



7 - UPDATE 
_.-_a.. ru F.miSNEaJAIJi-J_^A/R„SJ3:ClI0N- 
YOU LIKE TO DO? 7 



_S 



CD 



IT- 

>- 

a. 

.ca._ 
o 



F Q PL EALLi - A C CflU NI-^CJ:! AiMfiEi._Ej'i[ER -A. jN U.a B.ER JIEJELI !llliQ_ T HE_C hlA N G E^, _ 
- END 

_ Lr^,OLlLilU,£TXlHEB_.JUEEAIE 

2 - ADD NEU CUSTOMER 

. UtLLCJi-IlbiE;? _1 . . 



o 

ID 



OLD COST,- t? * OF NEU_TRAN3ACJJ0NS'?_ 9321i.r!£i.2 
ai276i! S 11. 76 2 

A?:! 5332 I 2j^4__3___ 

234561 9 

L^ZZIAH ], 



4.36 3 
10.34 6 



PRESENT BALANCE 



$12.14 



ITEM #yaUANTITY» UNIT PRICE, MONTH, 
? y Qy Q. 6 y 28, IQ? PAYMENT 
ITEM *y QUANTITY? UNIT 
. _ 2__LliS2iU 2 > 1 4-.2il2-6.< 



, PAYMENT, PESO. 




3 

29 
11 





ISO 




GLOBE 
FILE 

PLASTIC ROD 
SAt4 



. ■«rrs»-3: 2. SUB r&imoves -theZ*/ 



MONTH, DAY, PAYMENT, DESC. 
.?9,0,URFNnH 



FOf} EACH ACCOUMT J-:;j:lAN.C7.Ey^_.EMIFJSL a--JlU_ilBJLRj!ETI.hliNG-JH EXCHANGE,. 
- END 

-. -- - L,rL.QLa^Xljalfla£fi_.UFl!£LrE_ 

2 ADD NEW CUSTOMER 



Thi» daleteB arrar lint. 



CITY, Sr,, ZIP, # OF TRANSACTIONS. 



ENT ER IJEULCIK- f _?_ 
T '-lAllnN 

AA2371 A ■ WALTON SUPPLY ,315 UESTtJOQD , RI5...CHH0ND. UA . y 22086 , 1 

INPUT - ITEM #, QUANTITY, UNIT PRICE, MONTH, DAY, PAYMENT, DESC, 
'!■ 234!=:AI,2,4.3A,A,?5.0.PI ASTTC ROD 



F EL E A CH-- A CC QU N L X l-MNriF..i_EN lEfi A NUMBE R DEFINI NG THE CH A NGE. 

- END 

_„ l_j:^JX-!LJlUSlQMiEE_JUPDAlE 



2 - ADD NEW CUSTOMER 
-UHiL;H,ONE?._0 



[F Jf Oy JMyg EXCESSIUE_ TlSfLNSACJJONS JXJR ANY OF YOU R 

CUSTOMERS YOU WOULD LIKE TO REMCSME, TYPE A '1' OTHERWISE ~ 

TYPE A '0'? 1 

HOW MANY CUSTOMERS DO YOU WANT TO ADJUST? _1_ 

CUSTOMER «, » OF TR ANS ACTIONS rU REM OUE? lO^S 
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ACCOUNTS RECEIVABLE LEDGER 



DATE SEP. 8» 1977 



H&HE. 



ITEM # QUANT. 



.^CC„._t CUJX-X S T A J E_ 



DATE 



WALTON SUPPLY 
234561 



AA23716 
" '6~7~25 



RICHMONrii: UA. 



PLASTIC ROD 



WESTHAM SALES CO, 
ci56T78 25 



136928 20 
A221679, JA- 



37116riH 



3/18 
4/12 



5/19 
6/7 



melrose 7 il. 

"pulley 
wir e mes h 

WRENCH 
SAW 



$ SALES 

YR. rO DATE 

SALE >AYMENT'" 



$0.00 
"$8.72 ^' '^$0.6o" 



Sl»109.50 
$318.00 
$2!3S.20 
$144.76 



$1»712.70 

"liSOO.OCf 
$0.00 



$250.00 
$0.00 



X 

o 

tr 

a 

to 
u 
cr 

o 

I— I 

Ix. 



LlI 



o 
to 



3 



to 

I— I 

q: 
>- 

a. 
o 
o 

o 
o 



_ReiIAG- TQN CAN C O-t- 



1.3.622iL 



':> 



234561 1 



■45686 



3/17 



6/12 



LAKESIIlE> TX. 



WRE NCH 

PLASTIC ROrJ 



$2EL. 52 
$4.36 



$2E 



IP.po. 

$30.00 



OMEGA 



51376H 



STANFORD. N.J. 



$l»tlS.76 



D I GI TRAN 



^2.23Z56^ 
745336 
234561 



78192AC 



1/18 



3/12 
5__/_23_„ 



PASADENA > CA. 



GAUZE 



FUSE BK. 

PLASJj;c..Bon 



J:234j^72„ 

$151.80 

$2;l, .80 



$408.32 



JiaO.O()_ 

$0.00 
$150.00 



SUPERIOR ELECTRIC 

, 812Z63^.^_.„8„. 
A915332 7 

234561... 9.- 

A221679 1 
P 
136928 2 



9.3: 


21 6 DA, 


"? 


../ 


3 


3 


/ 


18 


_,.i..Z 


22^ 


6 


/ 


11 


6 


/ 


28 


6 


/ 


29 



^READERy P.A..^ 

JJLOBE„ 
FILE 
B,,.6S:LIi:L.BQlL. 



SAW 

PAYMENT 

WRENCH 







, $151.80 


$94. 


,08 


$0.00 


$18, 


.48 


$0.00 


$39, 


,24 


$150.00 


$ 1 . 


,34 


$0.00 


$0. 


,00 


$10.00 


$28. 


.52 


$0.00 



CASH SALE ACCOUNT 



-0 . 







10 

6 
6 
6 
6 



/ 22 
/ .25 
/ 28 
/ 30 



Oi, 

o' ' 
.. 













$0.00 


$1 


1,135, 


,00 


$1 


,135. 


00 


$1 


yiia. 


.00 


$1 


fll8, 


. 00 


$1 


y002 


.00 


$1 


7 002, 


.00 




$66 7 


,31 




$667. 


.31 



TOTAL A/R (LESS SALES TAX ) = 



tli,228,04 
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TYPE IN WHICH OPERATION YOU UISHt ,_ 

1 - REMOME OLD PAYEE FROM A/P jZ 
2 -^Mi_NE„lJ.,£AYE„E jfj 

3 - ADD TO CURRENT DEBT O 

4 ~ UPDATE J'iiYMENTS^ _ - -^.-.^ -- ^ 

5 - ONE TIME PAYMENT CHANGE 

6 ~ .END ^^.. -.^.- - ■■ p: 

WHICH 0PERATION?_2_ 5 

____ T^ 



^StFr'tHe'Iix'aCCOUN? SaRIABLEs' FOr^EACItl ..:., P.vr.. .n.ARKFIFn.,A692,13,297.1.6,4.37.50 _ fe 
Center tHE"siT^ACCOUNf"0ARIABL¥s for each new PAYFF? ALLIED.185>U7.4.4>\,4,4.71:I.\1.1>] :L7. ,4i.4J.lg) 
_MPLICATE_ PAYEE , LIST _ ^ \ ■ ^ 



185 \ Q. 

JlPE^j:NJHXCBJlEE£AIM2i_rQU_WISilJ _ . . ^ V- g 

1 - REMOUE OLD PAYEE FROM A/P ^ \ ^ 

2_r- ADD ^NEW PAYEE _^ pravioua.-^ I t/t4i-act*i-s O 

3 - "ADir TO CURRENT DEBT D*U«-e<i -ffom^ 

4 r_UPDATE PAYMENTS mAit-^.Viod-e. - 

~ 5 - ONE TIME PAYMENT CHANGE (con-t-rol A SD) 
6 - END . • 



WHICH OPERATION? 3 



HOW MANY DEBT INCREASES DO YOU HAVE? J . 

ENIE^R THE PAYEE *," DEBT INCREASE' AND" MONTHLY PAYMENT? 135 > 1 1 7 . 40 . 4 1.0 . 00 



INCORRECT PAYEE # LIST: 

TYPE IN WHICH _OPEKAIipNJPJi.WlSyL 



:t - REMOUE OLD PAYEE FROM A/P 

2 - ADD NEW PAYEE 

3 - ADD TO CURRENT DEBT 

4 - UPDA TE PAYMEN TS 



5 - ONE TIME PAYMENT CHANGE 

6 - ENri_ ^„ 

WHICH OPERATION? 4 



HOW M ANY PAYME NTS ARE YOU ENTERING? 2 
INPUT YOUR PAYEE * AND PAYMENT? 190 > 50. 25 
INPUT YOUR PAYFFtANDPAYMENT? 115 > 75. 12 



INCORRECT PAYEE LIST: 



T Y P E IN WHICH OP E RATION YOU WISH: 



REMOUE OLD PAYEE FROM A/P 
ADD NEW PAYEE 



3 - ADD TO CURRENT DEBT 

4 -- UPDATE PAYMENTS 



5 - ONE TIME PAYMENT CHANGE 

6 - END 



WHICH OPERATION? 5 



HOW MANY ONE TIME PAYMENT CHANGES ARE YOU ENTERING?J^ 
INPUT YOUR PAYEE * AND PAYMENT CHANGE? 1A5.595.Q0 



INCORRECT PAYEE LIST: 
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THE A/P ^SECTION OFFERS FOUR MODES_ OF .OPERATION 
1 - A/P LEDGER 



H 
CO 



2 - PR INT A/P CHECKS _^ 

3 - UPDATE THE A/P'S § 

4 - UP DATE EXPENSES ^^ 



5 - FINISHED WITH A/P'S cr 
WHICH DO YOU WISH TO DO? 5 ^U..^ 



*;)( UCC-COPYRIGHT 1977- BY SCIENTIFIC RESEARCH** 6 

1—* 
xx^ 



Ti¥rTOI.:L OWING IS ATn:ST"OF THE ACCOUNTS THAT CAN BE CALLED, ""TU" SEi:TrCr~T;'" 
ONE). TYPE ITS NUMBER WHEN ASKED WHICH ACCOUNT. ll 



ACCOUNTS PAYABLE 



2 - ACCOUNTS RECEIVABLE ^ 

J^^^r_£:LI^.N£ML_ST_ATEJlEiNT fe- 

4 - MERCHANDISE INVENTORY " 

5 - NON-SALEAB LE INVENTORY o_ 



6 - PAYROLL 

7 - CHECK REGISTER 



8 " END 



WHICH ACCOUNT DO YOU WANT? 8 
HAUE A NICE DAY 
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ACCOUNTS 
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3 



RECEIVABLE 



Most of the features of the A/R section are given here. It 
should be noted that only monthly invoices were run and then 
only on computer paper. The program will also generate month- 
ly statements. Both of these can be on your own imprinted 
forms or the program will generate its own forms as shown, 
auto invoicing or point of sale invoices are generated 
individual basis, much the same way as a cash 
manual invoice. 



register 



The 
on an 
tape or 



RUN-^'ACBS 






o 



< 

UJ 



■Xik linn - nnPYRTR IIT 19 77 - by scientific RESEARCH){<!{< , «5_ 



o 



IldLS-XS._.^A-^GENO;AL^LEIiQ£R-.JBiiSXMES£LPiiQeB6M„ Jp- 

IF PROPERLY UPDATED 1- IT UILL MAINTAIN ALL OF YOUR COMPANY RECORDS § 

j^mi_Ei;:EEAR£^'iLL OF YflUJUJ-IMMTJAL REP£IBTS^ ___J1 

m 

TYPE IN TODAYS DATE AS I DEC > ? 1 8 ? 1 976 ? JUL . > 1 2 ? 1977 



HOW MANY DISC DRIUES DO YOU HA^^E ON YOUR SYSTEM ? 1 ^ 



** ut, L- uur 1 I^ .n. 


711 1 .1. 7 / / t' 1 vju 1. i:_lf 1 J. 1 X I .> i\i_v;i_ni\i-.i I'lwi. 


X 
CD 


>- 

Q. 


THE FOLLOWING 
ONE? TYPE ITS 


IS A LIST OF THE ACCOUNTS THAT CAN BE CALLED. 
NUMBER WHEN ASKED WHICH ACCOUNT. 


TO SELECT <-> 
o 




1 ~ ACCOUNTS PAYABLE 


3 


2 - ACCOUNTS RECEIVABLE 

3 - FINANCIAL STATEMENT 



MERCHANDISE INVENTORY 
NON-SALEABLE INVENTORY 



6 - PAYROLL 

7 - CHECK REGISTER 



8 - END 



WHICH ACCOUNT DO YOU WANT? 2 



** UCC~COPYRIGHT 1977- BY SCIENTIFIC RESEARCH** 



THIS IS THE ACCOUNTS RECEIVABLE SECTION. 

IT WILL HANDLE ALL TRANSACTIONS INVOLVING SALES, 



IT OFFERS I'EN MODES OF OPERATION? 



1 - A/R LEDGER 

2 AUTO ENTRY INVOICING 

3 DAILY INVOICE LOG 

4 ~ PRINT MAILING LABELS 

5 ■■ PAST DUE ACCOUNTS LIST 

6 •• PRINT CUSTOMER BILLS 

7 - SALES REPORT 

8 - SORF ACCOUNTS 

9 ••UPDATE CUSTOMER ACCOUf^TS 
10 • FINISHED WITH A/R SECTION 

WHICH WOULD YOU LIKE TO DO? 1 



ACXOUNTS RECEIVABLE LEDGER 



DATE JUL. 23s- 1977 



...-fclAMEL 



ITEM * 



QUANT. 



UESTHAM SALES CO. 



C556178 25 
876512 £LQ- 



136928 20 
A22L6Z5 14_ 



_IIO_L, 



JL2.652.a_ 



234561 



OMEGA 



-Ana^t 



._i:iix_.iL_jnj?iiE., 



A SALES 
YR. TO DATE 



o: 



DATE 



DESC. 



5ALE 



F'AYMENT 



X 

o 

Ixl 

-ir 



37116DH 



3/18 
■4/12 



5/19 



4568 6 



3/17 



6/12 



J1376H 



MELROSE y IL. 



*1?857.46 



F'ULLEY 
.-_WJLFlEL_M.EatL 
WRENCH 

_jiA.y 



LAKESIDE!- TX. 



WRENCH 

PLASTIC ROD 



STANFORD;- N.J. 



$ Is- 109. 50 
$318.00 
$285.20 



$500. 6g 

_.$0_._.QS 

$250.0'<9 



$144.76 'l>0..0^ 



$28.52 



Ii32.88 " 

$o.o| 



$4.36 



$30. Ot 



o 

=3 



$li'118.7(! 



--11JJ3JZE'AN_ 



78192AC 



PAS ADENA? CA. 



5408.32 



723.756 A.. 

745336 6 
2Z45A1_ 5_ 



J._Z,^.1.8.. 
3/12 

-5_Z_J13_ 



Gi^iUZE 
FUSE BK. 
JE1ASXULJ5.QIL 



$234.:72_ 

$151.80 

$21.80 



$180.00 

$0.00 

$150.00 



SUPERIOR ELECTRl.C. 



^12743__ 

A915332 

2Z4.561_.._ 

A221679 



7 

_5 



.93216DA 



3 



3/18 
6/11 



lADER? PA. 



jg.lq.ele: 

FILE 
.PLASTJC 
SAW 



ROD 



-^- 


$162.14 


$94.08 


$0 . 00 


$18.48 


$0.00 


$39.24 


$150.00 


$10.34 


$0.00 



CASH SALE ACCOUNT 
















10 

"6" 

__iL_ 



/ 3 
/ 7 



11 
15 



/ 18 
/ 2*^ 



6/25 

A../. 3.8^, 

6/30 



Of 








$li'060.00 

ili.008 . OJ)^ 

125 



i|;lKL2S.OO 
_iy.090.OP 
$ly360.00 
l|i lyl35 .00 
$lf 118.00 
$ly002.00 
$667.31 



$0.00 

$JL y 060.00 
$ly008.00 
$lyl25.00 
$1,090.00 
$ly360.00 
$:U 135.00 
$lyllS.00 
$iy002.00 



$6 



6 / . ,ft I 



TOTAL 
.lOlAL. 



A/R 



(LESS SALES 
S_ SALES_TAX= 



TAX)= $ly200.80 
$.1^-802.11 _ 
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THIS IS the: accounts receivable section. 
: et offers eigh t m o d e s of q f^- e r a t i q n t 






1 - a/r ledger 

2 - print hailing lables 



o 



3 - past due accounts list ^ 

4 - print custoh ers bills P_ 



6 - 



- sales report " g 



7 - update customer accounts 

8 - FINISNED with A/R SECTION 






uhich would you like to do? 5 t=^ 



3 



this report list t he sales that were made on a speci fied DA TE> CD 

ENTER THE SALES DATE THAT YOU WANT PRINTED ZmX~^EC9 ,1975) |" 

ENTER 0,0,0 FOR THE DATE TO STOP>? MAR. > 12 > 1977 ci 



o 



o 

-t3- 



A/R SALES REPORT FOR MAR. "■iTTTWll^ 



TODAYS DATE JUL. 23? 1977 



^ ACC * HEM J Q UANT ITY SALES % CUST^NAME^ 

;Z81.?2AC ^7J>5336 6 _li51..S0 DIG ITRAN 

-IOTAk_Bf:CEIPTS THIS DATE? $151.80 LESS SALES TAX. 



THIS REPORT LIST THE SALES THA't WERE MAM'^ON " A ^SPECYfiIID DAT E." 
^JKNIEI5L_IHE_SALES^DAIE„ THAT YOy_ WANT^PRINTEJ^ j^ASJ DEC . y 9 . 1975) 
ENTER Oi-Oi-O FOR THE DATE TO STOP.? 'oiOvO ~ 



THIS IS THE ACCOUNTS RECEIVABLE SECTION. 



IT WILL HANDLE ALL TRANSACTIONS INVOLVING SALES. 



IT OFFERS EIGHT MODES OF OPERATION J 
1 - A/R LEDGER 



2 - PRINT MAILING LABLES 

3 - PAST DUE ACCOUNTS LIST 



4 - PRINT CUSTOMERS BILLS 

5 - SALE S REPORT 

6 - SORT ACCOUNTS '^ 

7 - UPDATE CUSTOMER ACCOUNTS 

8 - FINISNED WITH A/R SECTION 

WHICH WOU LD YOU LIK EJTO DO ? 5 



THIS REPORT LIST THE SALES THAT WERE MADri)N"'"^SPECTF'.rEi:rTrATE 
ENTER THE SALES DATE THAT YOU WANT PRINTED (AS I DEC. » 9. 1975) 
ENTER 0.0.0 FOR THE DATE TO STOP.? JUN. >1 1.1 977 
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A/Fs' SALES REPORT FOR JUN. 11 j- 1977 














(7) 


TODAYS 


DATE - 


JUL, 


23? 


1977 








ACC * ITEM * QUANTITY 


SALES 


$ 




CUST, 


NAME 




CD 


93216DA A221679 1 
10 1 


$10 
$1?125 


,34 
.00 




SUPERIOR 1 
CASH SALE 


iLECTRIC 
ACCOUNT 


CC 
>■ 

Q. 


TOTAL RECEIPTS THIS DATE: $1 7 135,34 


LESS SALES 


TAX, 








O 
U 


3 


THIS REPORT LIST THE SALES THAT WERE MADE ON A ! 
ENTER THE SALES DATE THAT YOU WANT PRINTED <AS 


3PECIFIEE 
% DEC,!'9v 


1 DATE. 
1975) 


> 






ENTER OjO^O F-OR THE DATE TO STOP,? Oi-Os'O 


THIS IS THE ACCOUNTS RECEIVABLE SECTION, 


IT WILL HANDLE ALL TRANSACTIONS INUOLUING 


SALES 


* 












IT OFF'ERS EIGHT MODES OF OPERATION? 
1 - A/R LEDGER 


2 - PRINT MAILING LABLES 

3 - PAST DUE ACCOUNTS LIST 


4 - PRINT CUSTOMERS BILLS 

5 - SALES REPORT 

















6 - SORT ACCOUNTS 

7 - UPMT.E CUSXOME!i_ACCOUNTS_ 

8 - FINISNED WITH A/R SECT I ON 
WHICH WOULD YOU LIKE TO DO? 4 



TYPE A '1' IF YOU DO NOT HAME FORM PRINTED BILLS OR TYPE 
A_'2' IF YOU DO AND JHEY ARE_IN___PL_ACE ^READY FOR PRINTING,? 1 
IF- YOU WANT TO PRINT SfATEMENTS TYPE A '6' OR 
TYPE THE STARTING NUMBER FOR INVOICES? 7142 
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PAYABLE 



Two A/P 
checks a 
written, 
accounts 
reduced 
by the a 
With the 
than 100 
The vari 
amount t 
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manual ly 



ledgers are 
re written 
The secon 

after mont 
by the amou 
mount in th 

exception 

do not aff 
ous account 
he check is 
ted. Any c 

and should 



shown in this section, one before 
and the second one after they are 
d ledger shows the effects on the 
hly check writing. Cash on hand is 
nt of the checks written as well as 
e cash expenditure account, #10. 
of account #10, account #'s less 
ect cash on hand or generate checks. 

balances are all reduced by the 

written for. Lastly the expenses 
hecks for these expenses must be done 
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A/P LEDGER 



ACC. DESC. 



PAYEE * 



AMT. DUE 



DATE! SEP. 7, 1977 



ACC. TYPE "" DUE DATE 



BALANCE 
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SUBURBAN TRUST ^^_ _ 
LAFAYETIE ELEC. 
ALLIED ELECTRONICS 
FORD CRE5II 

CHEMICAL BANK__ 

CASH EXPENDITURE 
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295.72 



190 

185 



87.63 
347.25 



MORTGAGE 
OTHER _ 
OTHER 



18 



110 
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23027. 27[::: 

2207.86'-' 
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lis 
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10 
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OTHER 
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2744.81^ 
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_778_._25g 

117.250 
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5.00 
^.00 

JJjt3L 
. 00 

7.50 



TOTAL MONTHLY PAYMENTS DUE $1,102.56 
TOTAL TIME BALANCES LEFT 0UIN6 *40,082,41 



THE A/P SECTION OFFERS FOUR MODES OF OPERATION! 

1 - A/P LEDGER 



PRINT A/P CHECKS 
UPDATE THE A/P'S 



4 - UPDATE EXPENSES 

5 - FINISHED UI TH A/P^S 

UHICH DO YOU WISH TO DO? 2 



WHEN CHECKS ARE IN PLACEj TYPE IN THE STARTING CHECK NUMBER 
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KENDOR NO. 



INVOICE NO. 



INVOICE DATE 



DEDUCTION 
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16J 



22731.55 



295.72 
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DATE REMITTED: SEP.? 7 1977 AMOUNT REMITTED »- $295.72 

DETACH BEFORE DEPOSITING 



Scientifio Research Instruments Co., Inc. 

1712 Farmington Court, Crofton, Md. 21114 



65-327 
550 



VENDOR if 
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MO. DAY YR. 



SEP.; 7 11977 



No. 



300 



TO THE ORDER OF: 



SUBURBAN TRUST 



EXACTLY 



$295.72 
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msQ/land national bank 

Bethesda, Maryland 



AUTHORIZED SIGNATURES 
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REMITTANCE FROM 

Scientific Research Instruments Co., Inc. 

1712 Farmington Court, Crofton, Md. 21114 



No. 302 



VENDOR NO. 



185 



INVOICE NO. 



INVOICE DATE 



$ 10829.41 



DEDUCTION 



Cods 



DATE REMITTED: SEP.!- 7 1977 



AMOUNT REMITTED ■ 



DETACH BEFORE DEPOSITING 



NET 



S 347.25 



$347.25 



Scientific Research Instruments Co., Inc. 

1712 Farmington Court, Crofton, Md. 21114 
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VENDOR J 
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MO. I DAY YR. 



SEP.; 7;i977 

I I 



TO THE ORDER OF: ALLIED ELECTRONICS 



mar^land national bank 

Bethesda, Maryland 
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No. 302 



$347.25 



AUTHORIZED SIGNATURES 
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REMITTANCE FROM 

Scientific Research Instruments Co., Inc. 

1712 Farmington Court, Crofton, Md. 21114 



No. 304 
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INVOICE DATE 
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S 67.21 



DATE REMITTED: SEP . » 7 1977 



AMOUNT REMITTED 9- $67.21 



DETACH BEFORE DEPOSITING 



Soientffic Researoh Instruments Co., Inc. 

1712 Farmington Court, Crofton, Md. 21114 



65-327 
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VENDOR # 
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MO. DAY YR. 



SEP.! 7 1977 



TO THE ORDER OF: CHEMICAL BANK 
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No. 304 



$67.21 



mar^land national bank 

Bethesda, Maryland 



AUTHORIZED SIGNATURES 
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THE A/P SECTION OFi-ERS FOUR MODES OF OPERATION J 
1 - A/P LEDGER 




1— t 

I-H 




2 - PRINT A/P CHECKS 

3 - UPDATE THE A/P'S 








4 - UPDATE EXPENSES 

5 - FINISHED WITH A/P'S 




CO 




WHICH DO YOU WISH TO DO? 4 








THIS IS THE EXPENSE UPDATING SECTION. ENTER AN 
^^ EACH OF THE TWELME EXPENSES. ^IF NO EXPENSE HAS 
ENTER A '0' . 


AMOUNT FOR 
BEiEN MADE FOF 


5 

;: AN ITEM S 
>- 





FOR TAXES =? 





■ o 
o 

o 




FOR SELLING EXP.? 

FOR ADVERTISING EXP. ••= ? 

FOR RENT = ? 

FOR UTILITIES = ? 

FOR RETURNS OR ALLOWANCES = ? 

FOR REPAIRS = ? 





FOR BAD DEBTS = ? 
FOR INTEREST = ? () 








FOR OFFICE EXP. = ? 179.12 
FOR INSURANCE - ? 23.95 








FOR MISC. EXP. = ? 1.23 


THIS COMPLETES THE EXPENSE UPDATING. 


THE A/P SECTION OFFERS FOUR MODES OF OPERATION 1 








1 - A/P LEDGER 

2 ~ PRINT A/P CHECKS 









3 - UPDATE THE A/P'S 

4 - UPDATE EXPENSES 






5 - FINISHED WITH A/P'S 
WHICH DO YOU WISH TO DO? 5 
















** UCC-COPYRIGHT 1977- BY SCIENTIFIC RESEARCH** 
















THE FOLLOWING IS A LIST OF THE ACCOUNTS THAT CAi\ 
GNEs. TYPE ITS NUMBER WHEN ASKED WHICH ACCOUNT. 


! BE CALLED. 


TO SELECT 




1 - ACCOUNTS PAYABLE 








2 - ACCOUNTS RECEIVABLE 

3 - FINANCIAL STATEMENT 








4 - MERCHANDISE INVENTORY 

5 ~ NON-SALEABLE INVENTORY 








6 - PAYROLL 

7 ~ CHECK REGISTER 


S - END 
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INVENTORY 



This section illustrates use and maintenance of the sale- 
able inventory. This routine allows you to perform mini- 
mum quantity searches on an automatic or individual basis. 
The inventory ledger is shown twice. The second ledger 
reflects the results of inventory updating. This includes 
adding a new item and changing vendors, pricing and quan- 
tities on hand. 
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THIS IS THE SALEABLE INMENTORY SECTION. IT HAS FIVE MODES OF 
OPERATION. THEY ARE! ... „, _ _ 

1 - SALEABLE IN^^ENTORY LEDGER 

2 ~ L 1ST CLASS # 
,^.^, 3..r^.MINIMLLM.^..QUANII.TY^^SEARCH 

4 - UPDATE INVENTORY 

5 "■ END . __.. 

WHICH DO YOU WANT TO DO? 1 







SALEABLE INVENTORY 


LEDGER -- FOR 


JUL. : 


23 y 1977 
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NO,. 


DESCRIPTION 


LST. SALE 
M.O/DAY 
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JUL. 23? 1977 


H 




LIST BY CLASS REPORT - FOR 


H-4 




CLASS #? 2 


o 

cc 
<r 




ITEM # riFSCRTPTION ON-HAND UENDOR 


UNIT COST 


CO 
LlI 
CXI 




Q12Z&Z .J2LQBE_ . ^. 26_ _J^73 


$5,88 


U 

M 
ll 




876512 WIRE MES>I 106 873 
A915332 FT! F 19 1 AJy. 


$3.18 
*1 ..T!9 


1- 


SCI 




DO YOU WANT TO CHECK ANOTHER CLASS <Y OR N)? Y 








LIST BY CLASS REPORT - FOR 


JUL. 23. 1977 


-^'- 
H 




CLASS #? 13 




CD 

1— 1 

cr 




ITEM # DESCRIPTION ON-HAND UENDOR 


UNIT COST 

$7.13 
$12.65 


Q- 

o 
f 1 




136928 WRENCH 93 1673 
745336 FIIRF RK. 90 27 


o 
o 

-» 












DO YOU WANT TO CHECK ANOTHER CLASS (Y OR N)? Y 








LIST BY CLASS REPORT -• FOR 
CLASS #? 3455 


JUL. 23). 1977 






ITEM # DESCRIPTION ON-HAND MENDOR 


UNIT COST 






INVALID CLASS * 










DO YOU WANT TO CHECK ANOTHER CLASS (Y OR N)? N 






























THIS IS THE SALEABLE INVENTORY SECTION. IT HAS FIUE 
---OPERAT.I0N.^^--THEY- AREL: - . _ 


MODES OF 






-_ 1- - ,i5ikL£ABL£LJjfiU£MIQEX LEDGER 





2 - LIST CLASS # 

-^^Z^~ MINIMUM JUANTJITY J.1EARCI- 

4 - UPDATE INVENTORY 

5.„r END 



WHICH DO YOU WANT TO DO? 4 
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THIS SEICTIGN ALLOWS THREE OPERATIONS. 

1 - ADD N EU ITEM T O INyENJORY^ 

2 - INCREASE QUANTITY ON HAND 

-A - END 



DC 



If) 



u 

cc 

Ixl 

-e£r- 
u 



z 

-nt- 



o 
en 



h- 



WHICH DO YOU WANT TO DO? 1 



HOW MANY ITEMS ARE YOU GOING TO UPDATE? 3 



^EDR. £ACH_IIEfl_EtlTEiRl r^ 

ITEM # S 
_MXbLzflLlMi_ ♦ QL^-aS _^________ .___. t 



QUANTITY PURCHASED 

UNI T COEil... (I NCLUD E T AXES ) 



VENDOR # (IF ON OPEN ACCOUNT) 
.PAYMENT..J:LE. ANY_. PAID. .BY..^CASH)L_.„ 



>- 

D. 
O 

IF PAID BY CASH? ENTER '0' FOR THE "ulEf«iOR"YuME(|fR . ^^^^^- 

o 

.^_^_ „ ^ ^ 

ENTER NEW DATA? 136928 > 15 >QQ13> .100 >■ 7 .28 ? :l.673!' Q 

ENTER NEW DATA? A915332> 10. 0002 > 75v 1 ♦32!. 1673? 

ENTER NEW DATA? BB45687 > 100 . 4598 , 77 ■, 45 . 95 y 88457 ? 1 5 

J^EW_^lJ£fli_^ENXEB_rJCiEaCjy.EJ_LaN^i'__S>:LLJNG J^RJ,CE_FO!i.J^^ 

? PUMP? 129.95 



THIS SECTION ALLOWS THREE OPERATIONS, 

1 - ADD NEW ITEM TO IN^^ENTQRY 



2 - INCREASE QUANTITY ON HAND 

2^_r._ENrL 



WHICH DO YOU WANT TO DO?. 



HOW MANY ITEMS ARE YOU GOING TO UPDATE? 1 

FOR EA CH ITE M ENTER t 

ITEM # 

MIN-QUAN . CLASS 



QUANTITY PURCHASED 
JJMIXJIQSI (INCLIillE TAXESJ- 



yENDOR # (IF ON OPEN ACCOUNT) 
-.EAYJlE.MJl_a.F ANY EAJIL BX_C6i3J:iL._ 



■•AID BY CASH? ENTER '0' FOR THE VENDOR NUMBER. 



ENTER NEW DATA? 723756 ? 29 . 0138 ? 30 ? 19 . 56 ? 27? 



THIS SECTION ALLOWS THREE OPERATIONS. 
J._jr:._J^D D NEW ITEM TO INUE NTORY 



2 - INCREASE QUANTITY ON HAND 
.i^_EMlL 



WHICH DO YOU WANT TO DO? 3 
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- -1- -- SAL.EAHLE mMERTXiE:XJ..Ea6E&- 

2 - LIST CLASS # 
-^ ^-3.^ ■^-MlN.ItiUM JlUANIlIY_.SEiiECJrL_. 
4 -- UPDATE INVENTORY 

5— =— EW Ii 



WHICH no YOU WANT TO HO? 1 
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CO 

q: 
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O 



.._ .aALEABLE„,.INVEMTORY. LERGER^ 



FOR 



1 TEH 



CLASS 
, _-JiCb 



DESCRIPTION 



LST. SALE 
HO/DAY 



jyL_,_23» 1977 



# ON UNIT 

JAND COST 






H 

X 

MIN. J5 

quan.q: 

"'•■>- 

a. 

o 

o 




- 13 
9 

„_a 

20 

. 13,8 , 

13 



.-UREiyCJd__.„ 

SAW 
.-ElLASTIC RQIL 



^^,6. /_16. 
4/22 



1.93,,, 

4 

81 



PULLEY 

BAUZE 

FUSE BK. 
^,eLQBE 



WIRE MESH 




4598 



COUER 
PUMP 



6/13 
.5.y^,^21, 

3 7 19 
,A./_30 

6/6 
_5_/^^ 



6/19 
_7 /„23 



20 
_J26„ 
106 

87 



95 
77 



$7.28 
«5.17 

i|i22.19 

,$19.56 

$12.65 

$5.88 

$3,ia 

$1.32 



$0.73 
$45.95 



15 
10 



15 
490 

30 
100 
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THIS ,„IS„.THE„.SALEA,EL£ JNy,E.NJOf(y__„S„ECJ.LON . 
OPERATION. THEY ARE! 



^JJ-J_AS„_FJ.yE_M_OD,ES_0,F 



SALEABLE INVENTORY LEDGER 
LIST CLAS5,_J 



3 - MINIMUM QUANTITY SEARCH 

^ , .4^_-:_„UPDATE,.JNyENT0.RY 

S - END 
.,UHICH„.D0^Jr'aUJ!JAM.iLJ:Q„,D.Q2_.a 



-mMJ_ia-JUi£ MINIM UM rniA TITIES YOU Unill ri I TKF TO CHECK FOR ( -1 



AUTOMATIC SEARCH ) ? - 1 
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MINIMUM SEARCH REPORT - FOR JUL. 23» 1977 a. 



......IXEM-t .- 

AOTI A79 


CLASS- 
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IlESCEME'TXQH J3R~hiANIl - 


VENDOR . . 


SAU 4 . 


1673 


234561 

_.. 1:556178.. - 

745336 

876512 - - 

BB45687 




20. .. . 
13 

.1 

4598 


PLASTIC ROD 81 

..?.ULLE.Y .. 5 

FUSE BK. 20 

.WIRE _.MESJ-I 106 

PUMP 77 


96 

87.3 

27 
. .873 ... 
88457 



yENDOR. ...UNIT. COST . MIN, Wh'^ 



$5, 


.17 


*2. 


.18 


$22. 


,19 


$12. 
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.18 


$45. 
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490 

100 f: 

a 



CD 

a. 

O 

o 



WOULD YOU LIKE. T.O. CHECK FDR. ANOTHER .triINIJ4UM..Q.UANJITY.<Y. OR N)?jr_- 3 



WHAT...IS.J_HE..11I.HIttUtt.AU.6.T.LU£.S._n)U.JJ0ULIL.LIKLj:0J„HEC L.-r.l_=_-AUIDMATIC SEARCH) ?_25_ 



MINIMUM SEARCH "r'EPORT '- FOR ""JUL. 23, 1977 



ITEM * _ _CLASS DES CRIPTION iNd:LA.N.D J^gNDOR^.^^^ ^ UNIT, MS J MIN. QUAN. 



A221679 . ... 9. 
C556178 20 
J.45336. 



.SAW .... __ 4 .. . . 1673 «5.. 17 . 10 
""pulley 5 873 $22.19 5 
13__ FI IRF PK^ 2^^ 22 i.XZ±(& ,25 



WOULD you like TO CHECK FOR ANOTHER MINIMUM QUANTITY (Y OR N)?_N_ 
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THIS IS THE SALEABLE INVENTORY SECTION. IT HAS FIVE MODES OF 

_XlE£EAIIX}iiL Ii-lEX-iifi£J ^ o_ 

< 
l-^=_SALE:AH.LEL^li^yEj^JJ[DR:iL_LEIlEO? ^ 

to — 

2 - LIST CLASS * tr 

:3----MINIJ4UM^4:iLJAN.TI-T-Y-SEARCH— u^ . 

A - UPDATE INMENTOIa'Y Ij- 

S-rr-ENIi H_ 

WHICH DO YOU WANT TO D0?_2_ S 















CD 






LIST BY CLASS REPOFri 


- 


FOR 


JUL. 23;- 1977 


a: 

>- 
a. 




CLASS *? 2 






o 
o 




ITEM # 


DESCRIPTION ON-HAND 




VENDOR 


UNIT COST 


Z) 




812763 
aZ65jL2. 


GLOBE 26 
WIRE MESH 106 




1673 
873 


$5.88 

it;3.ia 

$1.32 






A915332 


FILE 87 




1673 






. iO_ YOU WANT 


TO CHECK ANOTHER CLASS (Y 


OR 


N)? Y 



































LIST BY CLASS REPORT - FOR JUL, 23? 1977 



CLASS #? 193 



ITEM # DESCRIPTION ON-HAND VENDOR UNIT COST 



INVALID CLASS * 



DO YOU WANT TO CHECK ANOTHER CLASS (Y OR N)? Y 



CL ASS..J|JL_1.3_ 



LIST BY CLASS REPORT - FOR JUL. 23!- 1977 



- TTFM J PFSCRTPTTON ON-HAND VFNnnR IINTT COST 

„136928 .WRENCH 193 _1673. _ $7.28 

745336 FUSE BK. 20 27 ^ ~ " $12.65 



REGISTER 



The following pages contain illustrations of the check 
register. This listing maintains a record of all the 
checks written by the program, automatically, as well 
as any that are manually entered. 
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^IiQ YQU WANT TO ENTERi^RY .ADDITIQNALXHECKa.TO THE REGISTER .( Y OR, ML ? Y .... , ., 

|..ini,l M^MY nHfrnKR ARF Ynil FNTFTRINf-i ? „ ^ „ . 

INPUT THE FOLLOWING FOR EACH CHECK 

ACCOUNT NUMBER ._.. 

A • IF- IT IS A PAYABLE CHECK -OR- P -IF IT IS A PAYROLL CHECK 

THE CHECK NUMBER _,.. . ... ^ .. . ,, . 

THE PAYEE NAME err«r : RUS re«,o.*. tU I 



ailE_ CHEClt-IlAIlL_ASJ-_S£tL^22Lj_12.ZZ_ 
THEN ENTER THE AMOUNT AS: 457.96 

ENTER AU7 INFajfs VoFA'CHECK^OiV'THE SAME LINE 



NOW ENTER THE DATA FOR THE FIRST CHECK 
-2 -AA327..>P.>463rUPHILLIE.. SHII^H>..JUL...-lZy.l.gZ7jl35...A2.. 

ENTER THE DATA FOR THE NEXT CHECK 
..? ASS31>F.'465Q>F.G. . GILESv JUL. 24 > I977> 77. 26 . 
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CHECK REGISTER 



• BATE JUL. 23 f 1977 



ACCOUNT # CHECK 



PAYEE NAME 



CHECK DATE 



AMOUNT 



..JiCCDUN.lS.J:AY.ABLE_CH.ECK.S_ 



165.. 


. 1Q.0 


SUBURBAN TRUST 


SEP. 7 


1977 


$295.72 


190 


101 


LAFAYETTE ELEC. 


SEP. 7 


1977 


$87.63 


...... 135.. 


_.„ .... 102 __^ 


ALLIED ELECTRONICS 


SEP. 7 


1977 


$347.25 


1.10 


103 


FORD CREDIT 


SEP. 7 


1977 


$187.50 


115 


104 


CHEMICAL BANK 


SEP. 7 


1977 


$67.21 


165 


200 


SUBURBAN TRUST 


SEP. 7 


1977 


$295.72 


190 


201 


LAFAYFTTF FLEC. 


SEP. 7 


1977 


$87.63 


L85 


202 


ALLIED ELECTRONICS 


SEP. 7 


1977 


$347.25 


.. 110 


. 20.3... .. ._. 


FORI!, CREDIT 


SEP ,. .Z. 


1977 


$187.50 


115 


204 


CHEMICAL BANK 


SEP. 7 


1977 


$67. 2;1 


.... 16.5 


300 


S,U.BUJ^BAJ1_IRU.ST 


SEP. 7 


1977 


$295.72 


190 


301 


LAFAYETTE ELEC. 


SEP. 7 


1977 


$87.63 


185 


302 


ALLIED ELECTRONICS 


SEP. 7 


1977 


$347.25 


110 


303 


FORD CREDIT 


SEP. 7 


1977 


$187.50 


....... ..115, 


,, ,304 


CHEMICAL BANK 


SEP. 7 


1977 


$67.21 


L65 


500 


SUBURBAN TRUST 


SEP. 7 


1977 


$595.00 


150 


_.5,Q1 

502 


. „Lj9.EeYEJIfL.ELEC... .. .. 


SEP. 7 


1977 


$87.63 


185 


ALLIED ELECTRONICS 


SEP. 7 


1977 


$410.00 


110 


503 


FORD CREDIT 


SEP. 7 


1977 


$187,50 


115 


504 


CHEMICAL BANK 


SEP. 7 


1977 


$67.21 



PAYROLL CHECKS 



AA327 
.A.SS.il_ 



4630 
465J3_ 



PHILLIP SMITH 
F.G. GILES 



JUL. 17 » 1977 
JUL. 24? 1977 



$135.62 
$7 7... 2 6 
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FIXED 



ASSETS 
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SECTION 



(non-saleable) 



(inventory) 
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:«"UCC-C0PYRIGHT 1977- BY ^CIENnFIC RESEARCH** g 



UDULti YOU LIKE TO ^IPHATE^ THE NON^SALEABLE INVENTORY (Y OR N>?_N, 



>■ 

o. 
o 
o 

o 
u 

Z3 



IiEPREC. INVENTORY LEDGER 



JiAT£:-^4U_.L^.„_23,v 1977 



r,n.-rr-r.Tr.TTr.M I1QST_ DEPREC . NEJ_, 



SJ.6,32.1 FiiRNlB).BE ?"o|H-4 

A3S76 TRUCK i^-lil- 

TRADE FAIR PROPS. Zl'i.. 

, ^. ...J'UILJIINB ^W,^'^ 

OFF. EQUIP. J977.64 



C639S 
^D16.5^ __ 
.0190 



TOTAL COST = $78 » 61 1.94 

TOTAL DEPRECIATION._= jH2Q,93Q.3J 

TOTAI NET NON-SALEABLE INVENTORY = $57f6ai.6i 
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a: 



in 



X 

o 

a 

tn 
u 
cr 

o 



UOULD YOU LIKE TO UPDATE; THE NON-SALEABLE INVENTORY <Y OR N)? Y 






O — 






HOW MANY NEW ITEMS DO YOU WANT TO ADD? 1 
_lMiiUX.ALJ_-MIfclE_aUANXlIIES._FCm_ EACH ,N£W..IiLEM ,,QN ...ONE LINE. AS., ASKED. 
? 1 769:lG , BENCH y 2798 . 50 . 2s<;!5 y 20 > :l 97 7 1. 6 > 2 > 



ca 

T=r 
ir 
>- 

QL" 
O 
O 

O 
O 

ZD 



ITEM..# 



DEPREC. INVENTORY LEDGER 



JiESCRIPTION,. 



CAIEi_>iUL_L.23.s_J,927 

COST DEPREC. NET 



J.7ii21E_ 



_B£hiCJ:L. 



2.79_8.50 



23.32 



S1637I FURNITURE 

. A3a74_^ .__ ,TRUCK._ 

196721 TEST EQUIP, 

C639S ^.^TRADE FAIR .PROES. 

D165 BUILDING 

II 120 OFF. EQUIP. ___^^_____ 



9233.16 
5236.84 

17236.12 
,923. 1A_., 

40000.00 
5977.64 



3877.34 
2293.95 
'5fl6.i0^ 
580.40 
6459.83 
2602.00 



_J2775_. IS 

5360.82 

2942.89 

12119.33 

342.78 

33540.17 

3375.64 



..TOTAL CflS.I_5 .$.aii41Q.,.44 

TQIAL DEPRECIATION = *20t933.65 
JjQT^L...iJE.LN_QJtLS(^£Ma.E__.UiaEiimBl-^- 



$60.4 56.79 
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SECTION 



The operation of the payroll routine is illustrated in 
this section. This includes employee records, paychecks, 
unemployment totals, updating of employee data and the 
quarterly 941 reports. Again two ledgers are illustra- 
ted for the payroll section. The first is for use as a 
reference when looking at the second which shows the 
effects of employee updating as well as wage totals. 
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PAYROLL 
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.rilLS SS THE .P.AYROtl., SECTION..„ J I .GENERATES, JliE_FCU.LOtfINB.^^REFiyRTS. 

1 - PAYROLL LEDGER 

2 - PRINT PAYCHECKS OR 941 'S 

3 - PRINT THE UNEMPLOYMENT TOTALS 

4 - UITHHOLDING TOTALS 



O 



S 



-CD- 



.-5„.--._UEaiSLrE_EHELI]_YEE,J:iATA ^._ 

6 - ENll CL 

o 



WHICH ONE no YOU WANT TO MO? 1 



o 



..PAXEOLkJ^EDfiER DAT E JUL. 23 > 1977 



EMELQYIIE- EHEUTfEE. Sj,.S-. .$ZtlEj # 

NUMBER NAME # DEPENDENTS 



MISC. GROSS TOTAL TOTAL TOTAL INS. 

DED,._ _ .PAY ...XEIL __. .. ..^STATE _ ._.F.ICA 11 DED. 



A3721 


J.M. DOYLE 


.$0.00 . 


^ *6»791..20 


B6219 


G.R. CRAMER 


$0.00 


$3 » 305. 94 



339-26-4096 $6.53 2 

/* 1.7.353. 24 ,$407.....4.i $397.28 $7.50 

224-16 3209 $3.13 103 

$595.06 $198.34 $193.38 $5.92 



A1872 PHIL H. JOHNSON 118-19-3402 $4.33 1 

$0.00 ,$4y555.20 . $li.002,14 ^..J27,3._30 . $266,46 $6. IE 
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riQ„.Y.OU_^.WISH.. 10 ,CldAMGLA>IY,„0IL_I>lE^FUU..flW.IMCv,f.Ott mX^ ILMJi'LUYEE . 



X 

o 

oc 

a 

tn 

CC 



r<ATE OF PAY- 

NUMBER OF DEDUCTIONS 
-XMaUEAiillE—D EHUCtmbL- 

MISC. DEDUCTIONS 
-XX_OR^^^M)-?- X 



-td-- 






mil MANY .EM£'LnY£ES..AiyL^XlllLJiOIiIF:<'JJ^Gt_l_„ ^^- ". 

ENTER THE EMPLOYEE *: CHANGES INJ RATE OF PAY.- * OF DEDUCTIONS (IF MARRIED.. fv. 

Apri ion T D THF NUM^PPI. * riF ngSIIRANHF: DEDUCTI.aN,> ANlLJlL-Jli:S.C-._JlEI(UCXII]N.S-. IE., 

THERE IS NO CHANGE FOR AN ITEM. ENTER A '0'. 



^ 



ENTER THE CHANGES: ? B62:l.9>' .55? 0> 3 . 12 > 10 



EMPLOYEE CHANGE ERROR LIST 



THIS IS THE PAYROLL SECTION, IT GENERATES THE FOLLOUING REPORTS. 



1 - PAYROLL LEDGER 

2 - PRIN T PAYCHECKS OR 94 3. 'S 



CD 

I— « 

>- 

Q- 



o 



o 



3 - PRINT THE UNEMPLOYMENT TOTALS 

4 - UI THHOLD ING TOTALS 

5 - UPDATE EMPLOYEE DATA 
.A-j^^^EUU 



Jtimiia-Q^iE DO YOU NA NJ-_rO DOl—l- 



PAYROLL LEDGER 



DATE JUL. 23.. 1977 



EMPLOYEE 
NUMBER . 



EMPLOYEE 
.XAME 

GRO SS 



S.J 



TOTAL 



DED 



PAY 



FED 



$/HR, 



TOTAL 



STATE 



J.EFi'ENDEHTS,. 
TOTAL 



I NS. 



PICA 11 



DED . 



.A37ai 

$0.00 



, J.M, r tOYLE, 

*6?791.20 



3 39-26-4096 



$6.53. 



$1,358.24 



$407.46 



$397.28 



$7.50 



B6219 
$10.00 


G.R. CRAMER 
$3 5,305.94 


224-16-3209 
$595.06 


$3. 
$198, 


.73 
,34 


103 
$193.38 


$9.04 




. A1872 

$0.00 


. PHIL H. JOHNSON 
$4,555.20 


118-19-3402 
$1x002.14 


$4, 
$273. 


,33 
, 30 


1 
$266.46 


$6.15^ 


^■- - 
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TYPE A '0' IF YOU WANT TO RUN THE 94.1 QUARTERLY TOTALS. 
OR TYPE A gar-- Y OU WA NT TO RU N PAY CHECKS .? . 479 







X 

o 



Utr.a/ thir 



Try 



TYPF A '0' IF YOU WANT TO RUN THE 941 QUARTERLY TOTALS. 
'or TY>E A 'I'lF YOU WANT TO RUN PAYCHECKS . ?_1_ 



IS 

Ixl 



O 

H 

l-H 
O 

_1Q 



_MlLALL_mE_J01PLm:ELES_Wj;)RjK^^^ 

JWHENJIHECKS_„AREJliJiU^LL^J^^ 



1^ 

CD 



-.a; — 
>- 



o 



No. 



479 



Scientific Research Instruments Co., Inc. 

PAYROLL ACCOUNT 

1712 Farmington Court, Crofton, Md. 21114 



15-3 
511 



DATE 

JUL. 23 



1977 



PAY TO THE 
ORDER OF: J.M. DOYLE 



PAY EXACTLY $374. DOLLARS AND 44 CENTS 



$ 374.144 



Scientific Resaarcll Instruments Co., Inc. 

PAYROLL ACCOUNT 



MAIN OPFICE 

THE RIGGS NATIONAL BANK 

WASHINGTON, D.G. 



AUTHORIZED SIGNATURE 



No. 

479 


THIS IS A 


STATEMENT OF YOUR EARNINGS AND DEDUCTIONS 
PLEASE DETACH AND RETAIN 


-. 23 y 


X97 


■'' 




DEDUCTIONS 


PERIOD vJUl 
ENDING 


A3721 


522,40 




7.50 






80 




L EMP. NO. 


SALARY 


INSURANCE 




SAVINGS 




DEPT, 


NO. 


y 



f 


*7yl69.94 




♦ 00 


80*22 


30.56 


29,68 


$374.44 


OVERTIME 

OR 
COMMISSION 


GROSS SALARY 


ADVANCES 


OTHER 
DEDUCTIONS 


FED. W.H. 
TAX 


STATE W,H„ 
TAX 


F.I.C.A. 


NET PAY 












Scientific 


Research 1 


nstrumem: 


Co., Inc. 







CO 

■z 



X 

u 
cc 



u 
cc 



H 

z 

UJ 

, B» — 

UNEMPLOYMENT TAX SUMMARY - FOR JUL. 23!- 1977 f^ 

o. 



(P TATF- IIMI-MPI OYM FN T TOT ALS^ 



l- 

X 



YR. TO THIS THIS ^ 

DAT E PERIOD QTR. ^ 



*360.13 $277.48 


$3:1.0.54 


o 
o 


1 
UCC 


(FEDERAL UNEMPLOYMENT TOTALS) 







YR, TO THIS THIS 

riATF EEEIHI! LlIEti. 



.ia4ji5J3 MA±25 $Z2.46. 



THIS IS THE PAYROLL SECTION. IT GENERATES THE FOLLOWING REPORTS. 



1 - PAYROLL LEDGER 
2^_ri_EE LHX^EAXCHIEUKSJR JM l^S 

3 - PRINT THE UNEMPLOYMENT TOTALS 
A^ WITHHOLDING TOTA LS 



5 - UPDATE EMPLOYEE DATA 

6 - END 



^WHLCH ONE- DO YOU WANT TO DOT 4 
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t- 













^ 

n 

X 




WITHHOLDING TOTALS (YF?. TO DATE) 


'^TO'DATEr 


"jUlV 


23 y"" 1977 


RES'EARC 




TOTAL TOTAL TOTAL 


TOTAL 




T'lTAL 
MxSC 


CJ 

Ij. 

t— 1 




PICA FED. STATE 


INS. 








GROSS STATE FED. 
PAY UNEM. UNEM. 


MISC. 








- — ^- $9^1 7*24 $ILs060._3'^ '^927^66 


-^ - ... $??..69 
$3^469.60 




jr>io.oo. 


fe 




$15^679,88 $360.13 $84.03 


e& 

>- 












et 

o 
o 












o 

o 

3 

















THIS I S THE P AYROLL SFfmnN. IT GENERATES THE FOLLOWING R EPORTS. 

1 - PAYROLL LEDGER 



2 - PRINT PAYCHECKS OR 941 'S 

3 - PRINT THE UN EMPLOYMENT TOTA LS 



4 - WITHHOLDING TOTALS 

5 - UPDATE EMPLOYEE DATA 



6 - END 



WHICH ONE DO YOU WANT TO DO? 5 



„IiO„YOUWANUO„. REMOVE AN EMPLOYEE 



<Y OR N)? N 



JiP-YQLLJWANT TO ADD AN E MPLOYEE ( Y OR N)? Y 

HOW MANY ARE YOU ADDING? 1 
JNFiUT,.^THEN.jNEW...EMPLOYEE...DATA^ ^^r'^^''''~~~^, I~^ 

? E453 1 y 364--45--8237 m G , L . HAF ■ f^Mv297 MAPLE ST. yBOWIEyHD . y 20983^3 .9072 
■^?-? rO ? y I- y ? !- ;' i' y ? .^^' _ 



error: KU8 fe-^ov^^ "t-ke. s 
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in 

z 
i-i 

X 

o 


— 


THIS IS THE PAYROLL SECTION. IT GENERATE 

1 - PAYROLL LEDGER 

2 - PRINT PAYCHECKS OR 94:1' 
2 -_P1^IMI. XliEJJMEMPUlYMENX^ 


:S^ THE ._FOL 

S 
■LQIIALS 


.LOWINGJ^EPpRTS. 




ii 

o 
u. 

(-4 




4 - WITHHOLDING TOTALS 

3 - UPD^TEL^EfeiEL-QYEELJDAIA- 






1-1 

o 




6 - END 






f: 




WHICH ONE DO YOU WANT TO DO? 1 




















X 
CD 












>- 
Q. 

O 












o 
o 


















PAYROLL LEDGER 




DATE JUL. 23 i- 1977 








FMPI OYFF FMPi OYFF S.S. 


$/HR. 


# 






NUMBER NAME # 




DEPENDENTS 








MISC. GROSS TOTAL 
IiED PAY FED 


TOTAL 
STATE 


TOTAL 
FICA 11 




INS. 
DED. 




















_ ._ __ — «. 


____.., 


"* 


^- 


A3721 J.M. DOYLE 339-26-4096 
$0.00 $71,169.94 $1!- 403. 85 

B6219 G.R* CRAMER 224-16-3209 
$10.00 $3?604.34 $608.62 


$6.53 
$426.37 

$3.73 
$208.89 


2 
_. $419^44^ 

103 
$210.84 


Ji7^ 


'_5Q... 




$9 


.04 


^-- 


A 1872 PHIL H. JOHNSON 118-19-3402 
.$0.00 _ , $4i.905.60 $lji047..S5 

E4531 G.L. HARRISON 364-45-8237 
$0.00 $0.00 $0.00 


$4.38 
*292 .40..^^ 

$3.90 
$0.00 


1 
$286.96 

2 
$0.00 


$6 
$0 


♦15 

.66 
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cc 



IS) 

z 







-tr— •■ 






cc 


l-H 

1— 


— D!:£i:_^-/ " TF -JtajLLWi?ii^__J[:a_£ilJR_THEL_a4^ t qi a i.. s . 




12 
U 

r 1 


OR TYPE A 'I'lF YOU WANT TO RUN PAYCHEICKS . ? 




CO 






3 






CD 


941 TOTALS SUMMARY 




>- 

D- 


FOR DATE JUL* 23 v 1977 


FED* 


O 
O 


S.S.— ik tiAME RROSS 


1» 

EILCA 


PAY 


TAX 












339-26-4096 J,M. DOYLE 3774.34 


724*73 


220*80 


224--16-~3209 G,R. CRAMER 1951*37 


311*09 


114*15 


113-19-3402 PHIL H. JOHNSON 2628,00 
364-45-8237 G*L, HARRISON 0*00 


546*78 

oVoo 


153*73 
0*00 


TOTAL WAGES PAID - $8,353*71 

^ .^jrOTAL^FEru^^JLAX. WITHHELD - $1,532*60 

TOTAL PICA WITHHELD = $438*68 


-' 



























■miS-_ I a JliE^P A YfinLL^S££J_I.QM^ TLIiENEBAT E S T H E F L L W I N G 


REPORTS* 




1 - PAYPni 1 LEDGER 






2 - PRINT PAYCHECKS OR 941 'S 







4 - WITHHOLDING TOTALS 
5 - UPDATE FMPLflYFF HAT A 





END 
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X 

o 
en 
o 



BALANCE 



SHEET 



LU 



O 



1^ 

a 

o:: 

>- 

Q. 
O 
O 

O 
O 
3 



8 



PROFIT/LOSS 



STATEMENT 



-as 



S C I E N T 1 1" ]: C !■;; E S E A R C H INC). 
- A ^STOCK -eORPORAT-lON 



BALANCE STATEMENT 

- FeR 



DATl 



9i. 1977 



X 

o 

< 
u 
en 
ttt~ 



4=-ASH-^>W-HffNfr 

SALEABLE INMENrORY 

■TVR-&hfF-STPA-h»tNf7 

D E F R EC* I N V E N T 1'l; Y C S T 

-Freei:tf+?^-itE f^Ed^ 

NET ASSETS 



LAND 
^H-'AfEfFFS- 



TOTAL OTHER ASSETS 



TOTAL ASSETS 



MORTGAGE PAYABLE 
-tf:}i%NS— PAYfrffbff 

TAXES PAYABLE 
-0 THER- L 3rA BT;-L-FHeS- 



-ASSETS^ 



-2 ::hr-9Tlr 8-^-65 



OTHER ASSETS 



38500 



LIABILITIES 



$23 i- 6 18, 71 
— 4t>3S-r4Q 



0,00 

— l-<H584,4)-3- 

SUB TOTAL 



—7837^16— 
2288,45 

78611,94 






o 

■H 

X 
CD 



$68 c 01 9, 50 



en 
>- 

a. 

CJ 

o 

-63- 



50300,00 



$11 Si- 319, 50 



$42 i- 035, 22 



SCIENTIFIC RESEARCH INC. STOCK 



RETAINED EARNINGS 



TOTAL LIABILITIES AND EQUITY 



$53 y 51 6, 00 



$221-768,28 



$118,319,50 



THIS SECTION GENERATES IHE FOLLOWING REPORTS? 
i-— jEtfrtri^^fe- E SH E E T 

2 - PROFIT AND LOSS 
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- - - ■ - - -"' "— f^-- 
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UACjI-'B PATIi 


$141-652.34 

...Ji2_>L53.5.44 
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* * * * ;K * « * HAPPY NEW YEAR * * ****** 
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2 - PROFIT AND LOSS 
3 ■■ YEARS END AND W-2'S 






4 - END 
UHini-i uniii n yoii i tkf th nn-p 4 
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^-990-p|:n"NT'roSTDriER- ^t'*- r PRINT '^NAME --TPiri ^n-*S-TT--T^I,rrrRK^^^^ 

R INT "ZIP" ""* 

"^w^-on^iriN'r^TrrrTnT-iirTmrxTr-^;^^-^^ — 5" 

2010 PRINT "# OF OUTSTANDING TRANSACTIONS FOR THE CUSTOMER (SALES AND PAYMENT!;^ 

"zozo^TR im 

2030 PRINT" THEN STARTING ON A NEW LINE. ENTER THE DATA FOR EACH" 
^2040- PRINT" OUTSTANDrNCrTRANSr PERTHE rOLLOOTmr FORMATr^' " 



C/5 



o 



2050 PRINT" ITEM * "J PRINT " QUANTITY PURCHASED ": PRINT " UNI I SELLING PRICE (LESS IffiX) 



2060 PRINT "MONTH (1-12) OF PURCHASE "J PRINT " DAY (1-31) OF PURCHASE OR SALE" g 

■ZOTO'T'RTNT"Pfirr'rENT'"TPKINT"TiESCRIPTrtJN-^ (lEr "SALE^^ OR PAYMENT) »• -' ^ - Tt" 

2080 PRINT </> 

-Z09a*PR-rNT»-~ ENTER-'^O'^ FOR ALL NO ACTIVITY ^DATA ." '^-^ - — 

2100 PRINT" IF THERE ARE NO OUTSTANDING TRANS, THEN ENTER A '0' AND" J- 



"^nTan^-RTNT"" STATrrn"HFnjAT7T-F0Rn-HE^>!EXT-CUST0MER--0N--Ttrtr-NEXT-LlNEr" 

2120 PRINT H 

:2130"'PRrNT''-NOW- ENTER--YOUR DATA~A&" OUTLINEir'AEfOVE r" — S- 

2140 FOR 1=1 TO Dl S 

2150 INPUT F*TE*i'D*!.C*:.D$yA1r?Zi.R-i^Dt -^ ol 

2160 PRINT#3i.Ff.y " ■, ° ?E$5 " ? " PD$? " j. " ;C$? " ? " 5B$; " ? " PA*P " ? " fZvRJDl o 

-:21r70-~ir-rTl-rr-THEtr-25!-3t) ^o- 

2180 FOR J=l TO Dl ^ 



H-_-_ - 



21S^0 PRINT" INPUT THE-^TFiTANSACTION DATA 
2200 INPUT A*i.G19yP8i.G7?G6yQ8!.D$ 

:22-tO PRINrtS-miTy •Y-»?-Q9fP!!«ff7?e6tRayDi|r 

2220 NEXT J 

-?23-(rT^Exr-T 

2240 PRINT 

^225-o--pRtNr'-TfT:rsr^rrNrsHES^^THE-TiirFr^sECT'roN^r" 

2260 I9=-5 
-227Cr-G0SUB"357(y 

2280 CLOSE 
-2290 FOR 1 = 1— nr-5 ' 

2300 PRINT 
■231()-NEXTrr — '■- - -■ "■■- ^ - 

2320 OPEN "0" y2y "A/P" i-DJ 
-2330 -pF«NT'^OW--YOt)F(-AeCOtlNTS"PiA'YA'M:ES-U-Itfc-ifE ENTERED.-' - - - 

2340 PRINT "HOW MANY ACCOUNTS DO YOU HAVE (INCLUDES ALL" 

-z3^xr-rR Tfrr'^RET-TJCctfRTNG-gTrrs , e t c ) " ; 

2360 INPUT N 
-■2370"PRrNTRTN 

2380 PRINT 

2390- PfrmT "ENTER A nESCFJlF-'TlON OF EACH PER THE "FOLLOWING FORMAT" 

2400 PRINT'DESCRIPTION (BANK NAME 9 ETC. )" J PRINT " PAYEE #" 
"^Zrro-PTrrNT^TmrTJF— rHEnTOTTn^rTTTTHEi^^ 

2420 PRINT "TYPE OF ACCOUNT (1- MORTAGES? 2- LOANS y 3-- TAXES? 4- OTHER A/P)" 
":2'43(rpRrNT"$- PAYMENT- DUE V" -- - - 

2440 PR1NT°N0W ENTER YOUR DATA AS SET OUT ABOVE" 
-2-45-0-F0Fr^f-=l-nr-O-N 

2460 INPUT A$yB*»AyPli.CyO 
-247tr-Q=0 



2480 PRINT#2 ■> A$ ? " ? " 5 B$ P " v " y A ? PI y C y y Q 

-:249-0^WEXT- -I 

2500 PRINT 

2510 PRINr'TIIE A/P SEC riOf-f- rS-f-TNISWED-r 

2520 I9=-6 



2530 GO SUB 3b/t) 

2540 CLOSE 
25S0TOR- T~l Tt) 5 
2560 PRINT 

■-25-70-Nf:-XT^r-- -- - 

2580 OPEN "0"yly "MISC" 



-5590 PRINT "THIS SECTION WILL CREATE THE MISC, FILE. IT IS USED TO" 
2600 PRINT "KEEP TRACK OF- DATA TO BE USED ON THE FINANCIAL STATEMENTS. 



— 2ST0-T'RTNT ' " E 

2620 PRINT"ENTER YOUR COMPANY NAMEi. ADDRESS. CITYi. STATE AND Jit I FM: ODE ^^ J^^ 

— 2'630^TNPt.rT^^Al$lBl*TEl*->iFlir> '^^ S "^ 

2640 PRINT "IF THIS COMPANY IS A SOLE OWNERSHIP TYPE A 1." x 
2S^5D--TRTTn-^F--TRTS---COT1FAl'rrTrS"AT=T^ir^ — 2-**- g— 

2660 PRINT" IF THIS COMPANY IS A STOCK-CORPORATION i- TYPE A 3" ^ 

— 12S7a~PRrWT"-lF'-THIS"'^C0KPANY tS-ff^ NCW^^rroCK-CORPORATtOrt— TYPE-A 4* — ^^ 

2680 INPUT "WHICH" 5 K9 °^ 
-2690- PRINT" INPUT YOUR' STATES SALES TAX^ AS"' A %- ■- CIEt' tJ)^^ - "y — ■■^'- 

2700 INPUT K8 t 

27Tt)-pFrrNT*ENTER--YtJUR""rOTTSi-tr-t;Tiitm-t)'AtE15-M'-"OF-THe^^^^ -^- 

2720 PRINT "TYPE A COMMA AND ENTER CASH SALES FOR THIS PERIOD NOW- " 'y y 

— 2730""INF'UT"^Q si Ql "'^ ' " ^ ' ~" "fn 

2740 PRINT"NOW YOUR CASH ON HANDi. THEN YOUR COMPANYS EQUITY '> 

■-275a-INPUT--«2?Q3 "-^ " " ^-^ f^- - 

2760 PRINT#l?15Q?Ql?a25Q35K85Al*»" y " 561*5 " > " 5E1*P " y " ?F1$; " y " PK9 c^ 

h- 

X 



-2r70~F'RINT "-F NTER -THf-^NUMBEf^-Op— A-MMT lOHAt- ASSEnPS ^YOth MA^i•^AVE--T-HA^ +IAVE 
2780 PRINT "NOT BEEN ENTERED AS YET. <IF NONEy TYPE A ZERO) "' 

-2-790" INPUr-T^ -^ 

2800 PRINTtlyA 



ji — 



cr 
>- 

■ 28ro-rF A<r then- -2870-- --- " "" °^ 

2820 FOR 1=1 TO A 

-2830~PTrf-!tT*TYf E--TN-T ffli -r--«;^Attn!-f)p-T11^^^ ESC R-I t="r I ON—* — g 

2840 INPUT RyB$ ^ 

■285-0-pR;mT#lyRyB* -^ - " ' 

2860 NEXT I 
■"2&70-PRtNT" 

2880 PRINT-NOW THE EXPENSE PORTION OF THE MISC FILE WILL BE CREATED." 

■^89o-fi\*-f hff "-?!•«■ t^^=n^mm•tA^^i»^:Hrt--e^%fi^l■w 

2900 PRINT" 1. TAXES" 
-29-10-F-Prl-NT" ■2-7"SEttirN6-E-XF'-f-' " 

2920 PRINT" 3. ADVERTISING EXP." 
^^930-PRi£#T ° -4-.— RENT-" 

2940 PRINT' 5. UTILITIES" 

■^ZTSo-nmr r 6. R E T tmi^r/T^irtrotirANcgy' 

2960 PRINT" 7. REPAIRS" 
^'rTtXF'RTm-' r.— ErAIr-MBTS^' 

2980 PRINT" 9. INTEREST" 
-^2990--pp«NT" ±0-.— OFraeI^-E-XF■T-^' 

3000 PRINT" 11. INSURANCE" 

-3010 PR I NT" rsr-trrscT-E xpt- 



3020 PRINT "AS THE COMPUTER PRINTS OUT THE EXPENSE NUMBER ENTER THE TOTALS" 
-3O-3O--F'R^-NT"-F0R'~EmtH-^lTtiM-SEPE15nifTETt-- EtT-"A-^eOtWA-. --f'lRS F" EN-TER-THE" TOTAL- -* "- - 

3040 PRINT" FOR THIS EXPENSE FOR YEAR TO DATEy THEN THE TOTAL * FOR THE" 
"305iCr PFtrNT"PRESENT"PBFM01t-^-3-meE -THE- LAST- P-SL-STATE-MENT) « fF- A -TDTif^L- IS" 

3060 PRINT "NOT KNOWN ENTER A ZERO (0). THIS WILL NOT INHIBIT PROGRAM" 
-^OTO-F-Rrfl^f -OPERrtTTOtMEm-T-Wtttr--AFFEe-T--Ti-K:--AeeOR-(!«;T-OF--THE---NtM&ERS-- GENERAFED -. 



3080 PRINT "THEREFORE IT WOULD BE BENEFICIAL TO HAVE ALL THE FIGURES 

"3TD^0--pRrNT»-rN-0RnER -BEFtm'E-THE--'FT\OGRAM^ I-S--RON%--^-THIS^-FmiGFc-Aft---eAN--BE RUN ' 

3100 PRINT "ONLY ** ONCE ** SO BE READY WITH ALL YOUR DATA AHEAD OF TIME. 

-3rro-^FOR^ r=r-TO i? ''' 

3120 PRINT "EXP. #"yly 

"3130 INPUT QyR — -— - — 

3140 PRINT#lyQyRyI 
'3I^0--NEXT^r 

3160 PRINT 

•^r7o-i*RTirr't:tt-sTrf-iritTirir-TttE-«mFA^r^^^ -0R-i.QS8->-'"- 

3180 PRINT'AS OF THE LAS! PSL STATEMENT. THIS MAY BE FOUND BY ADDING" 

--3TyOT=TriiTT^THE"TXrnnrTTiT^^ " 

3200 PRINT"ENTER THE DOLLAR AMOUNT HERE "y 

-3irKr-rNFtrr-Q ^ 

3220 PRINT*lyQ 

3240 OPEN ° " y 2 y " CHK " y D J 



TO INITIALIZE THE SYSTEM FOR YOUR DATA BASE. IT WILL. a: 

ASK YOU F-OR ALL THE DATA NECESSARY TO FULLY DESCRIBE co 



YOUR BUSINESS TO THE COMPUTER 



-z 



THIS^F'ROGFilAM'HAS'^ BEEN BF^C)KEN"UF'^ INTO SIX FILE CREATION SECTIONS* ~ " "^ ^ g 

AFTER COMPLETION OF EACH SECT I ON i^ YOU WILL BE ASKED WHETHER § 

YOU WANT TO CONTINUirTHE FIi:ir~CRFATTCr[rTRn<Yi!n;rST'~ffT'~S'"17ATER 

TIME. THIS WILL ALLOW YOU CREATE AS MANY FILES AS YOU HAVE '^ 



tn— 

UJ 



TIME. IN THE MERCHANDISE INVENTORY SECTION y BECAUSE "OF THE SIZE ^ ^' ' ' " """'^' 
OFi_THE FILEy_YOU WII-L BE _ALI_OWED TO SPECIFY THE_ NUMBER OF t 

iTEMiS'YM" WISH'^O' ENTIiR"^IN"'A SESSION;"' ' " ' "" ""g' 



NOW YOUR DATA FOR THE MERCHANDISE INVENTORY WILL BE ENTERED' " " " " 
USE THE SAME ENTRY METHOD AS YOU USED ABOVE. 



HOW MANY DIFFERENT ITEMS DO YOU HAVE IN YOUR SALEABLE ^:" 

I NVENTO RY ? 10 _^_ 



HOW MANY ITEMS DO YOU WISH TO ENTER IN THIS SESSI0N?_7 



USE THE FOLLOWING FORMAT FOR ENTERlTKr'YTnjR^ntmriii 

ITEM # " 



>- 



o 



CLASS # (IE J 0000. XXXX WHERE XXXX IS THE CLAS'S ANirTOOCrTSTHL^'MIfTIMUM ^ 

INVENTORY LEVEL DESIRED.) ^ 

VENDOR # "' 

DESCRIPTION <30 CHAR. OR LESS) 



UNIT COST $ 

SELLING PRICE $ (LESS SALES TAX) 



# PURCHASED YR. TO DATE 

# SOLD YR. TO DATE 



MONTH LAST ONE SOLD (1-12) 
DAY OF THE MONTH (1-31) 



♦ PURCHASED AS OF LAST 9%L 
J__PURCHASED TI^LES^PEJIIOD 

NOW ENTER YOUR DATA SEPERATED BY COMMAS AS PER THE 



ABOVE FORMAT. 

? 1 3692871 570(yi 3 ri 673 ;¥RENCHV7'.l37T4; 2672 6 yl 6763 ,27 



f 


, A221679 9 10 . 0009 .1673 , SAW y 5 , 17 ? 10 . 34 , 315 . 31 1 c4 ■/ 22 y 109 •- 42 


f 


234561 y 190 . y 96 y PLASTIC ROD , 2 . 18 y 4 . 36 y 1812 y 1731 y 6 y 7 y 5'13 y 1 IS 


f 


C556 1 78 y 5 . 0020 y 873 y PULLEY y 22 . 1 9 y 44 ► 38 y 132 y 127 y 6 y 13 y 42 y 1 4 


T 


723756 y 25 . 0073 , 27 , GAUZE y 19 . 56 y 39 . 12 y 51 2 y 487 y 5 y 21 y 137 y 39 


f 


745336 y 25 . 0013 y 27 y FUSE BK . y 12 . 65 y 25 . 30 y 185 y 165 y 3 y 19 y 53 y 18 


■f 


812763 y 15 . 0002 y 1673 y GLOBE y 5 y .. . 88 y U . 76y 315 y 289 y 6 y 30 y 1 IS y 22 



YOU HAVE NOW ENTERED THE NUMBER OF ENTRIES SPECIFIED. 
DO YOU WISH TO CONTINUE TO ENTER ADDITIONAL ENTRIESy 
ENTER (YES O R NO )? NO , 

*' " ^' " " ^" 
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RUN»AeBSl. 



I- 

cn 



>i<^ CROFTON? MD. 21114 ** x 



-E t iITED B Y -=~TmftN"-tirr-'Sti^iqTN g 

ui 



ir 



_!__ 



ub L L UH E TO -THEnirCBS"; — frsrsTEtrxn- pr og ra ms DESKj -t^ir-ire 

HAINTAIN ALL OF YOUR BUSINESS RECORDS? EVEN TAXES, lij 



THIS IS THE FILE CREATION SECTIONs- IT IS ONLY USED ONCE 

TO-XN-iTi-AtrzE"THE-SYrrEit-FtrR-irt)Of^-fn^fA-BAStT: — ^i"f-w-it±r — ■ [r 



ASK YOU FOR ALL THE DATA NECESSARY TO FULLY DESCRIBE 3 



X 
CD 

- i=r-- 



AFTER COMPLETION OF EACH SECTION? YOU UILL BE ASKED WHETHER >; 

YOtrUANT-^Ttr-CONTINUE-THE^FrLE-eREArT-ION-iN-ACBSl'-AT A LATER " "o- 

TIMF. THIS WILL ALLOW YOU CREATE AS MANY FILES AS YOU HAVE 

-nmr, — rirnrHEr-WErRCHifflOTSir-TiwETrrciR y s e cTTtrrt?"B£c-AOSE"-OF--THE srzis o 

OF THE FILE? YOU WILL BE ALLOWED TO SPECIFY THE NUMBER OF 



o 

u 



^ ITEMS^YOtr WrSH TO ENTER-I N^A- -SESSI ON-i^ 

YOU-WA VET - ENTERED ^7 ITEMS-TQ-THTS-PO-mT-T YOttft^tAST -ITEM- 
ENTERED WAS ITEM *8 12763? CLASS # 2 ? VENDOR # 1673 

-T0O-mjr-FrA-yE--3- — rrEiltr LE F T to E NTCTr-rN-ro-THE FILEl 

CONTINUE ENTERING THE DATA IN THE FILE 

n-fOM-WARY--rTEMr--D(r-YOtr-t«rsrrTo-^ENTEd'-;:-rN-THi-s--«E-ss-roNr:^ 

YOU ONLY HAVE 3 ENTRIES LEFT. 



-iJSe-Tft^-FOLLOWING Ft)RHPiT'-Fm ENTERING " YO U R DAT A 

ITEM # 

xtAss-f — t TErr — ooocrTXO<x>r-tmi:- RE---xxxx--its-Tt-ri=^et?«b^?riftND- i jr-THE- tti ni mum 

INVENTORY LEVEL DESIRED.) 

-VEWDOR^f 

DESCRIPTION (30 CHAR. OR LESS) 

UN IT C OS T $ ' ' 

SELLING PRICE $ (LESS SALES TAX) __ 

-#-ptrRCtt?fSEir-TR-r-ro^TOTE 

# SOLD YR, TO DATE 
-M 0N-TH--rAS=r-ONE-St3trD-<^t=1r2 Y 

DAY OF THE MONTH (1--31) 

-Ir-P U RC HA SE D AS O F THE LAS T-T^ 

« PURCHASED THIS PERIOD 



:t^nntttt 

NOW ENTER YOUR DATA SEPERATED BY COMMAS AS PER THE 
-AI-tOVE-F-tmttAT-i ^ ■ 



? A915332 ? 10 . 0002 ? 1673 ? FILE ? 1 . 32 ? 2 . 64 ? 190 ? 178 ? 5 ?5 ? 63 ? 9 
'1^9-7:in'528?3air^7~?-COVEt\-?-0^.-7-3-rlT^6-yl1>11^ 



THIS- eOMPLE-TES-THE -INVENTORY SECTieMS. 



iEte-Y-eU-WISH-Te- M-TKE -NEX-T- SECTION-^l^i-T- THIS-TIME -- 
ENTER (YES OR NO)? Y 



THE ACCOUNTS f;;EC£1MABLE SECTION UILL NOW BE CF^EAFEIi. 

"HOur"HANY cusTOMER^ ACCOUNTS ' riO"-Tt:n.rHAVE'r^6^ ^; 

ENTER CUSTOMER ACCOUNTS " ACCORnTNtj- fCr TME^FDtLOWlNG- FORMATv 



ce 






troirrmi er-* 

NAME 
-STr^-ADDRESS 

CITY 
STATE ^-^ 

ZIP 
Tti'ffit-lr-tWtESr 



-rc-Afr-Tcr-rriJfftf 



TOTAL SALES SINCE LAST P8L 

# OF- OUTSfANiJlNQ TRANSAC FIQNS- FOR - THE - (;7USTeMER-^( SALES AND PAYMENTS 

-- THEN STARTING ON A- NEW L [NE r- ENTER-^^FHE" DATA- FOR EACH 

OUTSTANDING TRANS, PER THE FOLLOWING FORMAT. 



cc 

a 

LlI 



1- 

■z. 



O 

cn 



^riEH^ir 

QUANTITY PURCHASED 

UNIT SELLING PRIXE (LESS TAX) ^ " 

MONTH (1-1.2) OF PURCHASE 

DAY (1-31) OF PURCHASE OR SALE - 

F'AYMENT 

^0Est:rF;:iF'T:i;t)fr----t:rE--r — SiAtrE~OF^^PTVYM-rN-^n- 



h- 

n: 

- CD 

>- 



O 

o 



ENTER '{)' FOR Al E NO AC I IMT lY DA lA , ■ -----•■ 

IF THERE ARE NO GUIS LANDING IRANS . THEN ENIER A '0' AND 
START THE -DA FA FOR THE NEXT CUSTOMER ON FHE-NEXT L.JNE. 

--N W- - E N TE FC-n' B U FC -D A T A^VS-OU TirT; N E It- A&Gt,!J?r- 



? .37116dhfwestham sales c0,>327 zm, cherry s f ,> melrose y il . y 37215 > 1857 . 46> j 44 . 76 
Tnput the transaction da fa 

? C55A178»-25?44,33>.3!'13ii500yPULLEY-- ^^ ^ 



— — 1 ii e B^ 



INPUT THE TRANSACTION DATA 
— i'ZST'^Styt ^ilStrT-iS-rS-e^ Eg FF 

INPUT THE TRANSACTION DATA 

T 136928-?2O->-14v26!r5.-iy-g-25Q^0()->.LIRENeFF 

I N F^' U T T H E T \< A N S A C I' 1 N D A 'F A 
-- ? -A221479!'14-i- 10 '-34 y;;6;v_>j );rSAW- 

'^- ,,45486 > remi ngton" CAN CO, .2314 SHERWOOD A'v'E, yLAKESIDE> FX. > 4521 7 . 52 . 8B > 4 . 35f6 y 2 

-"^m=■m*-THE--TFi^ANs-A-(:mo-^r-E^A-T■A 

? 1 56928 f 2 )> 14, 26 ?jj> 17 vO? WRENCH 
-■■INPUT- -THE -fRANSACTfQN--DATA ^ 

?.^ 234561 . 1 > 4 , 36.y 6 ? 1 2 > 30 ■> PLASTIC ROD 
I' -51376H 1 OMEGA ? P,-Q " BOX 4 0-45-? STANFORD p NTdv-i»91-26Sihy 1 l:F8-f76 rOrQ-^- 

? . 7 si. 9 2 A C > D I G 1 1' K A N >■ 3 4 2 J. L A W X^i E N C E S T , i. F' A S A D E: N A > C A , v 9 1 1 5 >■ 4 08, 3 2 •> ; 3 
"TTfPOT-THE -TRA7IS??(ffT5WTWnYF" =- 

"^ 723756 I- 6 . 39 , 12 y 1 . 18 , ISO > GAUZE 



■^rNPDT-THEr TRANS-ACTION - DATA 

•'L.Zi5336 J- 6 j. 25 , 30 ? 3 > 1 2 :< Q > F U SJL jjK,;, 
"INPUT- TF-IE TRANSACTION -DATA -- 

T --2.i.4Jl4.1 .y 5 y 4 , 36 y 5 i> 23 ; 1 50 , 00 y PL AST IC ROD 
^TJJIJ'SB A 7SCF-ER rOFnj.:ECT RTC7T7mr^01 REhHERI-TT^-.— raga4T 162. 1 4 Tt Cnr;3-4-y -^4- 

INPUT TFIE tRANSACTION~DA'fA~ "^ — — 

■T :..;8I2763 y 8 y 11', 7 6 y 2 ? 3 y ()j.:GLOTE , '- 

INPUT THE TRANSACT I o'n DATA 
""^"^I^? t533gj£77 2 -7^4^-:fF:L8^-()T-E:irEt!:- 

INPUT THE TRANSACTION DATA 

'TIi2:'l?J?;!^?^^'FT'-a^" ^?IJ'gEr5ti^ 

[NPUT TFIE TF^AN'sTcTION DATA 



■"7"-A22r. 



I "y .1. , 34 y .jly" t ,t y y Wi W " 



?JiLLi:iA5JI_SAI-E ACCQUNTyOy OyOyQyQyOy 9 

TM Pt ) 7- - T Fl t 'T R A iXHsAtTf I GN D A TTr"^ ^■■-" 

7 y I y 1 060 , 00 y 6 y 3 y .1. 060 , 00 y Q 



INPUT THE TRANSACTION DATA 

'? y 1. ? :L 008 . OQ » 6 . 7 > 1008 . 00 > _-_ _ 

^nqFDT"TFTEr"TRARSm;TT'CrR~IfAT?i " F" 

? ? 1 p 1125 . 00 ^6vl Ull 25 > 00 ? Q_ z_ 

~rNF'UT"TF[E"TRANS"fiCTTIW"TlfiTA-" " "" 

? ^ 1 y 1 090 > 00 -J 6 'J 15 7 1 090 v g _ 

— TFn^TJT"TFIirTR?5fT^ffCTTUTT"in5iTA ~ ' ""5" 

? ? 1 ? 1 360 <, 00 y 6 i- 1 8 ? 1 360 . 00 > ^ 

-TWPUrn-FTE^TRATfHfi-CTTOTm-ATff- - - - ^ t^ 

? Q y 1 ? 1 135 > 00 y 6 y 22 ? 1 135 . 00 > ^_ _ 

^IFfFaT"TTTE~TRAiqHffCnT0NTrAT15i "" " C" 

? 1. 1 > 1 1 18 > 00 y 6 ? 25 > 1 1 18 . 00 y £_ 

-^W'irr~THirTR^Tf^CTTIJ¥TT?TTfi ' - - - ^ 

? ? 1 y 1 002 ? 6 y 28 ? 1 002 > 00 ? ^ 

— IWPOT^THE^'TETOTffACTTOrf "DATA "^ " <^ 

? Q y 1 ? 667 . 31 y 6 ■- 30 y 667 . 31 1- ^__ 



THIS FINISHES THE A/R SECTION* 3_ 

TQD-YOO-lJTmT -TO--TlO-TT4Er-T1EXT-BECTTUr-frr-TH-rS- TIMr ~- h- 

ENTER (YES OR NO)? NO __ ^ ^ _ 5 

1^ " "' ^ " q: 

>- 

Q. 

— ' — — ' — -a~ 
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RUN u' 

*« UCC " COPYFs'IGHT 1977 - BY SCIENTIFIC RESEL'ARCH INST. ** ^ 



EDITED BY - JOHN W, SWAIN ^ 



If) 



o 

t— t 



■z 



WELCOME TO THE ACBS. A SYSTEM OF PROtvRAMS DESIGNED TO bo 

i^At^^TAI1t^A^ti^-i:)F"Y0ttf^^f^ttM^«:SS^'l•fEf;fm1:tS^'— ^ 



**!{<>}C)}C;i<>|<5i< 



N- 
K 



^WI S-IS -THE^-PI bEr- OREAT-i QN-SEOT^tON T-i-T- -tS-GNtY l:iSEI^-^«NeE ^ 

TO INITIALIZE THE SYSTEM FOR YOUR DATA BASE. IT WILL 
-iSf SK-YOU-'FOft-Mrtr-TH E-iWF-A-NEf ;ES S A RY-ff>-RA±¥-f f ESeRfiiE 

YOUR BUSINESS TO THE COMPUTER. 



THIS PROGRAM HAS BEEN BROKEN UP INTO SIX FILE CREATION SECTIONS. ° 
AFTER- C0MPLETI0N^^OF^^EOT;WSEtrTIONr^^YOU^WItL--BE-^ASKED-'WHETHEI-t ' -"■ 



o 

YOU WANT TO CONTINUE THE FILE CREAIION IN ACBSl AT A LATER § 



-TiMir.- — Tr-riirniiTt:irT«rt:ow--"-rott-cf\i£irr!^ft-s-i^hii^p 

TIME. IN THE MERCHANDISE INVENTORY SECTION f BECAUSE OF TH 
■Or~THE - FILE iT-YOU WILlr^^BE AttOWErB^nrO^ SPE€IFY^"FHE NUMBER^ OF ^ 
ITEMS YOU WISH TO ENTER IN A SESSION. 



rZE 



;jf*:{f#^){f >!<;);;{< 

NOW YOUR ACCOUNTS PAYABLES WILL BE ENTERED. 

i-^©tr-|tANY-^«:■em;mTi^-E^t)--Y■0t^-1+WE"---t^ 
RE-OCCURING BILLS? ETC) ? 11 



ENTER A DESCRIPTION OF EACH PER THE FOLLOWING FORMAT 

-- iEiE-SCR-I P T^ Oft- ( BA WK'- hfAttE -y - iii;-T€-.- -^ 

PAYEE # 



"Dm'-OF-Tt-tirittrirrt=r-rmi^wT-i(:roi^^ 

PRESENT BALANCE OWED 

^ --rYPE- tjf^i^ccoofrr^ rt---" M(:) irr A GEt--F-"7>^-- L-c^^^^^ 

$ PAYMENT DUE. 
-NOW^-lrNT^R--¥OUir^:fii^TiV-A-S-~SE?1^0tfT--T%iEfeVE- 

? SUBURBAN TRUST y 1 65 ? 25 . 236 1 8.71 y 1 ? 295 . 72 

T L. AF A Y E T T E E LITU . y 1 9 y r3ir2:?33-rT2T^ryt;r/T'g^--- — — _ _. 

? ALLIED ELECTR0NICSyl85y5y 1 1871 . 16y 4 y 347 . 25 
- ^-'F0Rlr-CREFrTyritTir2ir:Tri^r.^trtT^irFt1:rTr5-- 

? C I -1 E M I C A I., B A N K y 1 1 5 y 3 . 



"T -CASH- -^EXPEND ITURPytO^rQ-y-l 1:7 i-:?5r4y-t±7'Tl2: 



'K 


mim ■ 


- 30 


DAY^ 


',"50 


'Sn 


^ 


00 y 4 


•St-. 


'? 


"AG'ING ■ 
AGING ~ 


- 4fi~ 
•• 60 


"WtYIt" 
DAYS 


I 45 
^60 


•SL 
»0 


? 
Oy 


4 y 
4y0 






AGING ■ 


- -^o^ 


TiiATS- 


'>l\l 


dL 


J±S. 


A^^ 





THE A/P SECTION IS FINISHED. 

TKrT(ja~wTsrrnnr"irtr"TT-iE NEXT'-SErcr i a N at THis -rxt-tE 

ENTER (YES OR NO)? YES 
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en 

z _^ 

THIS SECTION WILL CREATE THE MISC. FILE. IT IS USED TO ^ 

I ~~" err»r : ffUB r-tm&\>es "the Z 2 

'tEjTTER"T0'DR"LT)T11^1^T~isfAtfET^ADni^s/r-trryT>--^^ ^ 

CX- 

I—* 

Lt. 



? SCIENTIFIC RESEARCH INC. ? 172.f:l.2 FARHINGTON CT . ? CRQFTQN j. HP. 208:1.0 

TP-THIS^ COMPANY ^IS^^A-"SOl:JrOWNERi:m:rF-TYPE^ A- 1 "^ 

IF THIS COMPANY IS A PARTNERSHIP f TYPE A 2 

-TF-Tttrs'-ctJM f ^NY—r £M^-trretrK - c: O i-c f q r a t i q n ■> -Ti pr-Yi 3 _ 

IF THIS COMPANY IS A NON-STOCK CORPORATIONy TYPE A 4 |ij 

-biHICH?^^ w~ 

INPUT YOUR STATES SALES TAX AS A % - (lEJ 5) ? 5 
-tENTER-YOUR^ TOTAL-^ CASt-h^SALES AS-OF-THE -tAST - P&L -AN-»-'THEN- ^-- 

TYPE A COMMA AND ENTER CASH SALES FOR THIS PERIOD NOW- ? 38971.74^9565.3:1. o^ 
-1^im.t-Ymil-rYtA<nt-^-T:)h^-HAN-rnr-THEN-YQUP^-t:0ttF-ANYi;i"Ettt^^^^ '- ^- 

ENTER THE NUMBER OF ADDITIONAL ASSETS YOU MAY HAVE THAT HAVE x 

NOT-^-BEEN-ENTERED AS - YET v <- IF- NONE r TYPE- A^icERO > -?_;2_: 



CD 

TYPE IN THE $ UALUE OF THE ASSET A COMMA AND DESCRIPTION > 

-o 

o 



'f ■38500. 00 H AND -^~ — 

TYPE IN THE $ UALUE OF THE ASSET A COMMA AND DESCRIPTION 



"^ r 1 1800. QQy PATIENTS ' " 

^NOW"THE EXPENSE- PCfRTTON-OF-THE'MTSC- FILE^^t«ML-L-BE CREATED.- ^ 
THIS PROGRAM WILL CARRY 12 SEPERATE EXPENSE ITEMSs- THEY ARE: 

— --^iT-T-AXES • 

2. SELLING EXP. 



-XX 



37-A-iwe-rrisTWG-E-xF-; ' — 

4. RENT 

5T-nJYltrrT*ES 

6. RETURN/ALLOWANCES 

7-T-REPA-;fRS 

8. BAD DEBTS 

9T-I-WTeR-E-St — — ^ 

10. OFFICE EXP. 

rtT"TNSURANCE ' ■— 

12. MISC. EXP. 

lAS^iTH E^-eO MPttT E R— P firrMTS-lttff "if^ KE-eXPEWfSlil^-NtJtfBER-E NT lirR-^ft+E- -T&T-Ah S 

FOR EACH ITEM SEPERATED BY A COMMA. FIRST ENTER THE TOTAL f. 

-FOir-Tttis-EXT-'irwsir-Ftm-Yt'Air-irtrt^^ 

PRESENT PERIOD (SINCE THE LAST PSL STATEMENT). IF A TOTAL IS 

-hior-KNtmN---ENTErir-Yr-ZE-Rtr-^(-oir.- — Tttrr-w;t:t:tr-NOT-rNw:HMT^PfmmtAti 

OPERATION BUT WILL AFFECT THE ACCURACY OF THE NUMBERS GENERATED. 

-^Tt-fEREFQRE--l-T---WQULlt-Br"BE1^IEF-rei-r«r--TO-----ttA»;;'E----Att--"fHtS-p:tOURE£^ 

IN ORDER BEFORE THE PROGRAM IS RUN. THIS PROGRAM CAN BE RUN 

TJi^Y-jrr-trNtrEr-^a—Em-T&r-tnz-ADr-tw-Tii-Y^^ 

i^XP . # 1 ? 5316.34.978.16 

-OrF%-^r-2 T -rZli OTA<rrA2:T0^^'S- 

EXP. # 3 ? 4236. 35 > 138 1.46 
-EXp-;---l ---4 -T- -16-29 ;\^">"469-r8-6 

EXP. * 5 ? 602. 37^377 , 73 



TrxpT~f~i5 T-vjTTWzrrr 



EXP. * 7 ? 216.93^51.67 

EXp-;--i^^TJ ^ '- T ' ti-9v:2l-r;ii- t 35 - - - 

EXP . * 9 ? 607.18yll8..JJZ. 

TK?^, 'T-tt) r -20?o-.-2-rT75BT-6-:r 

EXP. #11 ? 316. 34 y 168.48 

•TrXF".™* 12 r 218,21 y 19.89 



-tAS-'nTY^EN-TER'^rHE'^-COMFYrN-IE-S --T0TAt.r-E-ARWINGS--tPROP^T--0R'--|.reSS-)-- 

AS OF THE LAST P8L STATEMENT. THIS MAY BE FOUND BY ADDING 

-=fflE~-T8-TAL---0N--ALt-Fi^'£VT-0t)S-F'at---STA-T-E:tfE#TS■-RUN---TH-I■-S-■YEl%F^^ 

ENTER THE DOLLAR AMOUNT HERE ? 1 67:3S.^J22_ 



THIS 
TTTEH 



COHPLETES 
CDNTffrN 



THE CF<EATIC)N 



ROUTINES. 



PREPARE YOUR 
"UFUATElSiLr 
THIS DR 



ETTOU"CTr^iTrFUR7fSTr(JFrnr 

FINANCIAL STATEMENTS. 

"-DFrnrrs-iMTA-^WEr 

lUER PROGRAM CAN 



NOW 
EEF~T 



THE 
R-ffCK 



SIX DATA 
TlF^-ANTl 



-TU-RUFTTT 
WILL. HAME 



TO EMPTY 



ALL SIX 



TT-CTTAR-eEH 
ONLY BE RUN 

run 



THE MAIN PROGRAM 

AtrrtnTATrcmrtrrr- 



WILL 



TJP~r~ 

OF T 



TF 



ONCE 
TIIIHT 



IF YOU 
JTJTT 



ESE 



REKumr 

FILES AND START AG A 



TRY 

-Totr 



:n. 



THANK YOU FOR YOUR KIND HELP ~ NOW THE FILES CONTAIN ENDU(3H 
HATA-FOR" '-ACBS-^ TTJ-ls-EEp-TR-ACK^ OP-TOUR-'CCmPANY "RECOR-Dir FOR YUIJ-, 



&5 



CJ 

-e£r- 
< 

bJ 

en 

-td-- 



O 

u. 

I—* 
H 

izr 

LlI 

o 



BREAK 
5K 



IN 3420 



X 
. irrl... 

a: 
>- 

Q. 

,.o 
o 

o 



jiiM 
TO 



RUN IT AGAIN. IT WILL STOP. IF YOU MUST RERUN IT 



^WILL HAVE"TCr"EMPTY-Attr-&''rX"-OF-^mESr-rrtEr-^ANIr-STAfirT- 



, YOU 
li^OA-l-N-i 



THAN K-YCrU F QR "YOU R^ 
DATA FOR 'ACBS' TO 



•Kl'WD^HELF'-----~-N0W"T-HE--f-;iH:„-ES-e-eN^FAfN-e-N-et.«7H 

KEEP TRACK OF YOUR COMPANY RECORDS FOR YOU. 



-BR*EA1t-lt4-^-4-20- 
* 
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SAMPLE 






X 

o 

£5 

in 

UJ 

u 



z 
u 

o 



1^ 

% 

H 
X 
CD 
1— i 

>- 

D. 
O 
O 

U 
U 

3 



DATA SHEETS 



USED FOR 



ENTERING 



THE DATA BASE 



PAYROLL 



Number of Employees 



Number of Hours in Payperiod 



g 



State Unemployment Tax % 



Employee # 
(15/diqits)* 
















Soc. Sec. # 
(11/digits)* 
















Name 
(20/char) 
















Street 
Address 
















City 
















State 
















Zip® 
















$/Hour 
(16/diqits) 
















# Of 
Dependents 
















$/Deduction 
16/diqits) 
















$/Misc. 

Deduction 

(16/diqits) 
















$/Gross Pay 

Yr-to-Date 

(16/diqits) 
















$/FICA 

Yr-to-Date 

(16/diqits) 
















$/FED TAX 
Yr- to-Date 
(16/diqits) 
















$/STATE TAX 

Yr-to-Date 

(16/diqits) 
















$/Gross Pay 
this Period 
(16/diqits) 
















S/Taxes Paid 
this Period 
(16/diqits) 
















$/Wages 
this Quarter 
16/diqits) 
















$/FICA 

this Quarter 
16/diqits) 
















$/FED TAX 
this Quarter 
(16/diqits) 

















o 

i3 

LU 
CC 






H 

X 
CD 

CC 

>■ 

CL 

o 
u 

o 
o 

3 



*Alpha/Numeric 
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$/Depreciation 
to Last P&L 
{16/d1gits) 












































Depreciation 
(l,2,3,etc.) 












































Month in 

Service 

(1-12) 












































Year in 
Service 
(ie: 1977) 












































i 

i s. 
>• 

M- 

_l 












































Salvage Value 
(16/digits) 












































Cost 
(l6/dig1ts) 












































Description 
(20/char.) 












































Item # 
*(16/digits) 













































X 

o 
q: 

u 
cr 



bJ 



O 
CO 



a 
I- 

X 
CO 
1—1 

cr 

>- 

Q. 
O 

o 

u 
o 
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UJ 

2: 



G 

4-1 



Purchased 
this Period 
(16/digits) 












































XI _J-— .- 
,0) oO 1/1 -1 

in a. 4J • 
10 •!- i 
J= +> en 1^ 

t- 10 -D i 
d. lO e 












































Day of " 
Last Sale 
(1-31) 












































Month of 

Last Sale 
(1-12) 












































Sold" 
To Date 
(16/dig.) 












































<ts 

-M 



J— 


Purchased' 
To Date 
(16/dig.) 














































Selling 

Price 

(16/dig.) 














































Unit 
Cost 
(16/dig.) 












































1 


c: 
+-> i- 

Q. TO 
■1- J= 
S- U 

t/J 
<U CM 












































Vendor # 
{16/dig) 


























































































"3 













































q: 
H 



X 

o 

2 

CO 

UJ 

cc 
o 

I-H 

Ll. 

I— I 

I- 

z 
u 

I— I 

o 
en 






>- 

Cl. 

o 
o 

o 
o 

3 
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! W) ro 
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S-T3 CO 
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VI VO 
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cr 
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3 



ro. 
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MISC FILE 



Company Name, 
Street Address, 



City-State, 



Type of Business 



iTtash SaTef 
to Date of 
Last P&L 
(16/diqits) 



$/Cash Sales 

this Period 

(16/diqits) 



JiP- 



jblL 



Sales Tax % 



TUasTT 

on Hand 
16/diqits) 
/Company 

Equity 

(16/diqits) 

# ot Add'l 

Assets 

(6/diqits) 



Assets 

$/Value 

(16/diqits) 



Asset 
Description 



(TcR) 



1 Taxes U^cl.Xe^ ^.^r,\h 



2 Selling Expense 



3 Advert. Expense 

4 Rent Expense 



5 Utilities 



6 Returns/Allowances 



7 Repairs 



8 Bad Debts 



$/Yr-to-Date 
(16/diqits) 



$/Total this Period 
(16/diqits) 



9 Interest Expense 



10 Office Expense 



11 Insurance Expense 



12 Misc. Expense 

$/Earnings 
to Last P&L 
(le/digits) 



X 

o 

a: 

s 

CO 

UJ 



■z. 

Ul 



o 

CD 



CD 

>- 

Q. 
O 
O 

o 
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YEARLY 






X 

o 
cc 

tn 
u 



I- 

z 

Ul 
I— » 

u 



1^ 

3 



PAYROLL TAX 



CD 
t-i 
01 

>■ 

a. 
o 
a 

o 
u 



UPDATING 



The followi 
gorithms . 
simply type 
you wish to 
the followi 
ing too, in 
If you need 
and then pr 
line in add 
State tax s 
the two lin 
type in the 
Return key. 
is done, ty 
copy of the 



ng sheet is 
To change th 
LOAD"PAY P 

change foil 
ng page, sub 

place of th 

to delete a 
ess the Retu 
ition to wha 
ection, simp 
es where you 

new line in 

When all o 

pe SAVE"PAY 

payroll pro 



a listing 
e State or 
ROG. Then 
owed by th 
s t i t u t i n g 
e numbers 

1 ine, Sim 
rn key. I 
t is alrea 
ly type in 

wish to p 
formation . 
f the upda 

PROG. Yo 
gram. 



of the employee 

Federal tax wit 

type in the lin 

e entire line as 

the numbers you 

that appear on t 

ply type the lin 

f you need to en 

dy there; such a 

a line number b 

lace the new lin 

When finished, 

ting you are goi 

u have now saved 



tax al- 
h h 1 d i n g s 
e number 

shown on 
are chang- 
h e line, 
e number 
ter a new 
s in the 
etween 
e and then 

press the 
ng to do 

an updated 



en 

z 



I t \f (N2/4) >(.i6 lHI;:.Nwi6 = N2/4 



IJ I, :•■ I. 



I M Fill": I rilEN8600 



5500 RKM STATE W C 1 1 -III L) I DING SUB. 

5600 i\EM E>E'I I" OK MAFiYi AND '19// 

5700 F?EM SO = Si A IE lAX 

5800 REM 1.1 IS HEinU, i IONS. :,F -99 fllEN MARRXEI.i 

5900 REMN2 IS THE HuURS PER PAY PtiRi.OIi 

6000 REM 00 IS 'HE ORUSS PAY 

6 1 U J. ■■■■■■■■ i n 2 = 1 1 1 U" i I ■ 9 9 I i- i i-i N 1 1 2 ■■■■■ 1 1 • :l. 1 D . ■■■■■■■■ I 

6200 A i "■■ ( N;':/40 ) * i 5 t 5*D2 ? Oz-'-lKJ Ai il)6 -i'KJS » 

6300 REM Al-='l; EXEMP i I.UNS PUR IjEPE i-!li£ N I b 

6400 R EM 06 i S I i- 1 E. S I A i li- S 1 i i , U E 1 HJ ( .: IM (J N 

6500 09=^^)7 06 ; NO"=N2/40 i i F09 ■:, ( :I.9;{<N0 ) 1 HENSO= . 03*G9 5 RE 1 URN 

6600 REM 09 IS THE STATE i AXABLE INi;OMh 

,4700 ■|Pfi9P(:j8*N0)TMENS0=(N0*<.58) + ( ,045;k(09 ■( i.9*N0) ) ) SREIURN 

6800 i,Fi79^(57*N0;i T i lENSO^^^ ( NO*:i , 44 ) f ( ,.06* (09 (38*N0) ) .) S RETURN 

6900 30"~(N0*>!., 6) } ■; .>0 75*<09 (57>KN0) j ) IRE 1 URN 

■7000 REM TILIS IS THE FEU FAX ANU F i.OA 

7 1 R E M i-: 2 .1. S f- E iJ U J T I T 1 1 L I) I. N i.^ 

7200 REM F6 i S F I OA 

7300 REM F i OA IS 5*85 ;;, iO 16500 

7400 I.i:l.=0tii2"=i:i;.TFli::99l iiEN(i7=~li-.iO0r" 

7500 N0=" ( N2/40 ) J A:l = ( N2/ 40 ) ;{< I 4 - 4>l<ii; 

7600 REM UNMARRIED PERSON 

7700 I FG9v (3.:5*:N0) 1 1IENF2--0 ; OnTn9500 

7800 iFG9<:(76*N0.J TIIENF2=^ ( , 1. 6* (09 (3 j*N0) > ) J GO 109500 

7900 IrG9<( I43*N0) T I IENF'2= < 6 . 88*N(.i ) f ( , I 8«(G9 ( 76;i<N0) ) ) t GOT 09500 

8000 IF(v9< ( I82*N0 ) 1 IIF:NF2- ( I 8 ,. 94*M0 ) { ( . 22* ( 09 ( 1 43*N0 J ) ) J 60709500 

8100 I FG9''(220>}:N0) T UENP2= ( 27 , 52*N0 ) t ( ,24*a39 ■ ( I32*N0) ) ) SGO'T 09500 

R200 tFG9-:(297*N0)THENF'2-"-( 36, 64*N0M( .28* (09- (220*N0) ) ) SOO I 09500 

8300 IF09'^:(355*NO)THENF2=(58<.2)!<NO) f ( . 32* ( 09- ( 297*N0 ) ) ) ;G0T09500 

8400 F2=(76<.76*N0) f ( .,36*(G9- ( 355*N0 ))) J GO 109500 

3500 REM MARRIED PERSON 

f3 6 I F' G 9 ^. ( 6 1 * N ) T' i I E N F 2 ■■■■■■■■ I G G J 9 5 

8700 IFG9 C ( 105*N0 ) T'l lENF 2= . 15* < 09- ( 6 I. *N0 ) ) t GOT 09500 

3800 IFG9-:C223*N0)TliENF2--=(6.6*N0) } ( . 18* ( 09 ■ ( I05*N0 ) ) ) J GOT 0950 

3900 IFG9<(278*N0)THENF2=(27Va4*N0) f ( . 22* ( 09-- < 223*N0 ) .J ) 5 00109500 

9000 IFG9<(355*N0)TllENF2f•^3S^94)}^J|Jf^^:;!5*(09■ (278*^^ ) :i_S GOT 09500 
"'■9l()0 " IF G9< ( 432*N0) THENF 2"= ( 59 ;i9*N0 ) 4 (\ 28* ( G9""- (355*N0 ) )") 160 T'D^ifOO 

9200 IFG9<:(509*N0) THENF2-~ ( 80. 75*N0) f ( . 32* ( G9 ■■ ( 432*N0 ) ) ) ?G0T09500 
^T3()0 F2=<I()5.39*N6) + <V36*(G9-r50 

9400 REM THIS IS THE PICA SUB 

95MK:L ==16500 fK2:=^. 0585 1 IFP3>KlTHi::NF3^=0rRETUF^N 

9600 :i F- ( P 3 ■} G ) > K 1 T H E N K 3 ■■■- K 1 • - P 3 t F 3 = K 2 * K 3 J R E T U R N 



9 7 '"• F 3 -■■■ (. K 2 * G ) t R E T U F^ N 

9800 60SUB13700SaB = FIX<Q< 10n_n"'RINJTT5iiB<20) P SPRINTUSING " **#*# >- ### . 

i#"PQBin:Yf("aTioy"FixTariO"") ))*TiyM75^ " " " ~" '" 

9 9 F'' CM) == 6 1 P (12) == F 3 t P (13) == F 2 1 P R I N T T A B ( S 3 ) P S P R I N TUSI N G U 1 ;|; H.H10) tQ(20> == 

TrfiTJRTi:;P^TTironT(iTrF^rwrifcxT:irT^T'iTi^ 

t PRINTTAB ( Ml )JJ:N* P TAB ( M2 ) in='RINTUSIN6i»njl>_5_GO i^ 1 E R J^NJ T A iB(^)_£ t PRINTUSING " ##_ 

"##7«'=^?pTFTPFOrNfTAB(60)'?N9' " "" "" " " " " ' '' 

10000 REM Q(2 Q) S ETS THE SPACING BETWE EN THE CHECKS AND THE ST UB 
TOTUKyi^F^TNTO-' R I N T I P 1^1: N T t miHT t P R I N T T A STTF)T1 F' R i: N T U S I N G y $ iTf ^ITRm P R I N T T OT" 
( 3 5 ) P S F' R I N T U S I N G " # i- fl^ # . fl^ il^ " P F-' 2 >- F 2 v S s. F 3 P I P R I N T U S I N G V * P Q ( 1 ) 
10200 Q (1 9 ) - 1 1 ; FOR 1 3 = 1 TOO ( 1 9 ) t PR I NT t NEXTI3 S (!( 18) -Q ( 1 8 ) +0 C 1 ) I GOSUB 1 2000 

1Q3Q0 REM Q(19) SETS THE SPACING TO THE . NEXT ...CHE CK - 
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SOURCE LISTING 



I- 

(/3 



_„, t=i--. 



o 

-ot- 



-TCra--REM'^-^-f^^XOMF'l:ETE--BUS-TNES£r S-YSTEr-t"^- PRO GRAM ^"^ o: 

110 REM EDITED BY JOHN SWAIN o 

-■|?0-REM-^- tJCtr^-- -COPYRIGHT- 1977 ^BY -. ^- -SGIEOTIPIG^- RESEARCtt IT 

130 REM THE MISC FILE MUSI BE SET TO A P 

-i-=^0-t^'E^M--*;h;Yttt)!r-ef— -r^b«PeH^i:— FM')N#:H^^ ' -g" 

150 REM ACBSl - DRIVER PROGRAM "[^ 

'r«r REM^ THI&^-USES 6 REMOTE FILES; " '^ 

170 REM " MISC " ? " A/'P " ' " A/R " ■> " EINU " c " MINV " ? " PAY " ^ j^ 

--i80--w-rrrrH-^80^ "'" 

190 CLEAR 6000 



S 



■^zotrriEFriBtr-f^"-'!: E 

210 ON ERROR GOTO 3770 2 

■220--OPEN »I»-!'1>' "MISC" - ' - ^ - " ^ '^' ^ 



a. 



230 INPUT #ls.I?I7i'DJ 

240 -CLOSE - ^ "" '"' ' '"' ^ " 

250 1 9 = I ri F 1 9 :::■ = 011-1 E N 3 2 9 o 

-2-<so-i-FB:i-XT:;rriflH:M-rNPtrr^n7ACE---Ytnii-riYirT-TY--D-;rsc--"rt^ 

; MOUNT 1 

270 PRINT"** -UCC— -COPYRIGHF^ 1977" BY SCIENTIFIC RESEARCH INST. MM" -- 

280 PRINT"*>K CROFlONy MD, 2.1114 MM" 

-^290-^PR-INT-"EDTTED -BY-" -JOHN- W-i- SWAIN" - 

300 REM THIS DRIUER SECTION SHOULD EXECUTE IN 15K OR LESS IN 

-t«-o-REM-tttKJ-T-iri«-ttr-^3PEA-K--rNtr-t»MPi-fr-Ef«r~w--rfFi-H^ 

320 FOR 1 = 1 TO 5 

_.„2'0^PfftNT "' ' . - - ^ - ^^^- 

340 NEXT I 

-350-^PRTNr»WEtCOME-^TO-TME--AC-BST-----A---SYSTEM--OFM^''ROGRAtii:r-Bi:rf3-TtiNElt---^f»^ 

360 PRINT "MAINTAIN ALL OF YOUR BUSINESS RECORDS y EVEN TAXES." 

-3/ F ' RTirr' rrjso'xcincr' ' 

380 PRINT "THIS IS THE FILE CREATION SEC HON. IT IS ONLY USED ONCE" 
---39Cr-pRTNrnt)-~-rNriTAI_-TZE THE- -SY8TEn--::^OR-Y'0tiR--DATA-- BASE v^-TT--W-ILlr" 

400 PRINT "ASK YOU FOR ALL THE DA I A NECESSARY TO FULLY DESCRIBE" 
'-4-:ti:>--pRINT"-Y0lJR-^;iU£;-1rNESS -"F6- -THE--eOMPUTeR-r'" 

420 PRINT 
-~43-0--p«--ttrni+-:re--f-fmGRr^M-"M-|*r!r---BEl;fN----Bi\tlKE1t^ ^ 

440 PRINT'AFTER COMPLETION OF EACH SECIION. YOU WILL BE ASKED WHETHER" 
-450--pRrNT'-Y0U'-"UANT~T0X0NriNUE'^^THE--Fll:E'^LlA'EA-ri0r-r-IN---A-CB&n-A-1'-A- t::AT-^ 

460 PRINT "TIKF. THIS WILL ALLOW YOU CREATE AS MANY FILES AS YOU HAME" 
- 470" PRINT'-^TT-ME; -IN^THE MERCHANDISE -INVENTORY--SEC'riON!.^- BECAUSE' OF"-THE SIZE "- - 

480 PRINT"OF THE FILE. YOU WILL BE ALLOWED TO SPECIFY THE NUMBER OF" 

--^9ijn^RTTTT-'TTEiTC--TCtrTr[-?n-rTtr-rfrTE-R--.rir^^ - ' 

500 PRINT" JK**;^****" 

--5-Itr"Ofr"AT!STTrr'^0aT0--520?"99-a.i-342arl-'7t)0>7232O-?-2S-80 

520 0PEN°0" y6^ "PAY" sDJ 

530 PRINT "THIS IS THE^ PAYROLCr-S rORAGE^ SECTIONt- rriS USED 10" - " -^ 

540 PRINT"CREATE THE FILE 'PAY'. SEPERATE EACH ENIRY WI TH A COMMA. " 

^■550^ RE'M^X2=M(iiXnTOrrTOIMBER^TN~FTCE 
5 6 P R I N T "HOW MA N Y E M P L Y E E: S A R' E N Y (J U f^ F' A Y R L L " 5 



570 INPUT ET-- "" " ^^ 

580 PRINT"H0W MANY HOURS ARE IN A PAYROLL PERIOD (lES 40>.80 E IT; .J^' i^ ^ 

-159-0- TNPtrr-R '■"" " ' 

600 INPUT "WHAT IS YOUR STATE UNEMPIDYMENT TAX RATE AS A % (5.35) " HJR 

-TrnrpRTwrTiNTER' yuur EHi-T-UTEFT:tiFiTiTfTATTinT"-TiT-rTrir-Fui:t;aw-imr' "" 

620 PRINT "ORDER FOR EACH EMPLOYEE. EACH ENTRY MUST BE SEPERATEIi^" ^ 

"^^-:JO^PR^NT"■FRO^^TFrE-NEX''T--lr^TTT-ff^--'coHM■A■-'■-*•>!;:«■*>^w--'»^-- - --^ "- -'■"- -— - - - 

640 F' PINT " E M P I,., Y E E * " : P F; I N T " S C I A L 53 E C U R 1 T Y * " t P R I N T " N A M E. ( T N I T 1 A L S y l,„ A S I N AM E: 

-IE; — JtW; --SW-AIN-)-"-t-pRI-NT' STREET -^^ DURESS-" - 

650 PRINr"CITYy STATE (IE: CROFTONy MD.)" 



660 PRINT"ZIP CODE (IE. 21 1 14 ) ° 5PRINT " RATE OF PAY (^/HR,)" 
670 PRINT "#_0F HEPE^HENTS _( IF MARRIED ADD 100 TO THIS NUMBER" 
"^^BO^PRIRT"""^" ~IErr 2n[iEP"r"^^7'ifiT^RTE)J";5r---ro2"-7-^7PRXT>n^""$lJEDOCTTOT^^ 
RINT"$ MISC. DED." fe 

^90"-pRTNr "TjR OS sr-p fir ^cr rt^ t O' "irATErr --rpR^r wr "-rtrr a Lr-FirA- tTR-r- t o-tr a-t ey" — «- 

700 PRINT"TOTAL FEDERAL TAXES (YR. TO DATE) ": PRINT " TOTAL STATE TAXES TO DATE"! 
"T^rO- PRINT "I5KaSB-F^f-5TTrar-rAST-Firir' ^- 

720 PRINT'TOTAL TAXES PAID ON EMPLOYEE DURING THIS PERIOD (SINCE LAST PXL" i3 
"'FRrNT " R-ffS'-R-UfNT)-.-" ^- 

740J'RINT"WAGES THIS QUARTER " tPRINT " TOTAL FICA THIS QUARTER" °^ 

'^750 PRIW'TOTAL FEDERAL TTiiXES THIS ""L7[rfiT;;TER~-"TCESS""FrCA7T" «" 

760 PRINT h 

TTO-pwTwr- OTJir-TTPETFfrs-Tr-n3R--THE"TTn^ST-raFt7aTEE"As-sEr-Tnrr-^^^^ i- 

780 F=l ' F=FLAG FOR CURRENT OR PAST EMPLOYEE F=l IS CURRENT EMPLOYEE ^ 

"7Va^"TNPaT'EN$yA$7ErrADrFAC$l.AS$:-rfiZfr,T0y-DYPrvP2^fp:jvP^vP5>P6i-P7>P8 -j^'- 

800 PRINT#6jE1 5H?UR5EN*y ° y " 5A$? " ? " P F 5 E$ 5 ° » " ?AD*P " y " 5AC*5 " v " 5AS$? " » " 5A7$ 
"ETIO ^PRINT#6 ? PO y D y Pl ? P2 ? P3"v F'4 ? PS ? P6 > f'7 y PS y Wl ? Tl"? T2 1: "" 

820 IF EK2 THEN 910 o^ 



vH 



"StJo-pRn'n ' — 

840 FOR 1=2 TO El t 

^8S0-PRINT"** ENTER^THE. rrATA rOR YOUR NEXT-EMPLOYEE-**" - -^ -^ ^ 2 

860 INPUT EN$ ■> A$ ? E* y AD$ v AC$ ? AS* y A2$ y PO y D y PI y P2 f P3 y P4 y P5 y P6 y P7 y P8 y Wl y Tl y T2 ^ 
"^70 PRrNT#6TEN$r"T» yA*y*-y • yFyE^y "-y "^rADtry "y '-yAe^y "y " y AS$ y " y " yAZ$ - - - o 

380 PRINT#6 y PO 5 D 5 PI y P2 y P3 y P4 y P5 y P6 y P7 y P8 y Wl y Tl y T2 " 

-"H70-PRTNT g- 

900 NEXT 1 => 

^910-pRINT"THAT-riNT&-HESr^THEr^-EMPtOYEE"^DATAv' 

920 CLOSE 
-9-30-I- 0R-T---l-~T0--^5 ^- 

940 PRINT 

-yso-T^jExn ' — — ' ■ ^ ^ 

960 I9=-2 
"77t)--G0StrB~357tF 



980 REM THE EQUIPMENT INVENTORY SECTION 
-990--E2~0 



1000 OPEN °0° y4y "EINU" yDJ 
-1010 PR:tNT^Nfflr-1ffTg--iriWENTmrr--triirTTirnffl:^ INT(^ -Tttr-pft:E8- 



1020 PRINT "IT WILL BE DONE IN TWO PARIS-- FIRST THE NON-SALEABLE" 

"ro30-1^^^r^''ITEMs^^-w■^^:^-■Br^INFur--tm:rt;rr-l^iS-nESKs•y~rYF'EWRXTERtry--1 

1040 PRINT-ETC). THEN THE MERCHANDISE WILL BE ENTERED." 

1 OSa^PRTNT" FTOW-"nANr^ m FFERENT-TTEMS^Ercr-^OO-^HA VE -tN-"THE^ ' NON-" 

1060 PRINT-SALEABLE INUENTORY (FIXED ASSETS)"? 
TXr/tri NPU T DI ' 

1080 PRINT#4yDl 
■'m9<T^-'fCim 



<:fir-i 



1100 PRINT "ENTER THE DATA IN THE FOLLOWING FORMAT (SEPERATE EACH" 

Ilt(^-PR1NT"^ENTRY--WITH A COMMA).'" 

1120 PRINT"rTEM *" J PRINT " BRIEF DESCRIPTION (20 LETTERS OR LESS )": PRINT" COST IN $ 



1130 PRINT"SALVAGE VALUE IN *" t PRINT " LIFE IN YEARS "t PRINT" YEAR ACQUIRED" 
--rt-4t)^Ti:iaWT"M0NTI-r(-IN-THAT-^YE-AR)-ptlT--tNT1J--SERVlCL^-'-1-ti>'-^ — 

1150 PRINT"TYPE OF DEPREC. (1-ST. LINEy 2-DOUB. DECLINE. BAI. . y " 
--tt60-pR1-Nr'' 3---S0iM"--QF--Ttt&-YR-r-M-eCT-STr~4-/^-BeeW^^^ ^-u^^-..^. 

1170 PRINT"TOTAL DEPRECIATION AS OF LAST P8L .": PRINT " YOU MAY LUMP SIMIIAR 
-lT8Cr~PRIWT»ITLT^S-TCroErMEm-" ■ -■--.— 

1190 PRINT 

-t2oo -pfti hTT "-NOW--TYPE--I tt~Ymlf^-ErA^m-AceoR^w-^m--T&-Tt■re-A^^ 

1210 PRINT "NINE VARIABLES. START EACH ITEM ON A NEW IINF." 

-1220 FOR 1=1 TO-Dl \. ^ .:__ ____ 

1230 I NPUT El$ y E$ y R y S y L y A y Al y D y T 

1240 PRiNi#4yLTrr'T-^mrirr^ y " y r ; s ii l ; ff TmrTTrrr — 

1250 NEXT I 

1260- PRINT- -- - - -- 

1270 CLOSE 

•±2m)-pR^fN-T-'-TH;i:S COMF'LETES THE EQUIPMENT- INVEOTORY- F^ARTt " 

1290 I9=-3 



-r 



1.300 GOSUB 3570 

1310 PRINT 

t:3'20"~frtni ' ' ' ' D5 

1330 GOTO 3420 -S - 

'1340 "OPEN' '"^O" y ^P'mm' y DJ " ^ 

T--3OT-pRTTrrn4rTTr-TatnrTT(rnrTTirr^ <" 

1370 PRINT"L)SE THE SAME ENTRY MEFHOD AS YOU USED ABOVE." ijJ 

-tsBO-piri-NTM^roir-MANr^-DirFEREN-r-TTEMr-itjrr^nr^t-rAVE-Tfr-fOTJFr-SA - - ' g" 

1390 PRINT" INVENTORY °5 __. „ ^ - - H- 

1-400 -It^PUT El '^^' "~^'' ' b- 

1410 PRINT»5yEl . __- t- 

TSTi^'RInT'HOU MANY ITEMS DO YOU WISH TO ENTER IN THIS SESSION" 5 

- 1440 INFUT^-rS "' "■ 

1450 18 = 17+18; IF I8::: = E1 THEN 1480 
-1460 PRINT'YQU ONLY HAVE -? E1-I7 ? - Ef+TRiE&tEFT-. "- - - - "- -'^-- '^ F 

1470 I8=E1 ^ll. 






.^ 4^.^ 



-rwo^Rxwi E 

1490 I7==I7+1 __ ^._„ ^.„ .... S 

1510 PRINT"USE THE FOLLOWING FORMAT FOR ENTERING YOUR DATA " J PRINT " ITEM # | 

"1520- PRINT -CLASS-r <IEr OOOOvXXXX-UHERE- XXXX-I3-THE -CLASS-AND 0000 IS THE" MIgl 

MUM" ^- 

-r53Tr-FRTirT" TNVEiTTtnrT-tisvi-tr^rEsrridst&Tr' _- - ' = 

1540 PRINT"VENDOR # ° ! PRINT " DESCRIPTION (30 CHAR. OR LESS) 
■1550 PRINT'ONTT- COST--* ";-PRINT*SE-ttI-NG-- PRICE--* -(LESS-- SALEi) TAX) '^-- ^ - 

1560 PRINT-* PURCHASED YR. TO DATE ' 5PRINT " # SOLD YR. TO DATE" 

4^.;X4|;i|:;.^4e;;TH-LAST--0NE-^S0L-E^ 

1580 PRINT"* PURCHASED AS OF THE LAST Pii, L "S PRINT ° * PURC HASED THISJ^ErirnUT ^ 
-l-5-90--f1\'-rN-T-'^ -^^itttK-**-**-" 

1600 PRINT "NOW ENTER YOUR DATA SEPERATED BY '■''O^AS^ASM'-'ER 11-11-. '■ 

--^.-6l0-1='R-INT°-AEf0VE"F0RMATT-° ' '' '" 

1620 PRINT 

-"1-63-0-- FOR-~r=rrr-TO--i a 

1640 INPUT El*!'W!.V?E*yUs.S^PcS5i.Dl^D2!.N?Pl ^ 

— rssxr-FRTNTRrrEi- rr"-r'*ii:rrvrE-rt-''ir«-t-trrsrf ^-ttrtr^^ N-t pi - 

1660 NEXT I ^__ _ 

--t67tJ-lF---r8--CEl— THEN-ty-65-0 

1680 PRINT _ 

--t69-0---0fffG~±820 



1700 IF F9=0 THEN 1810 

-iTitr-cttmrropEN "i" ,?■> *-st;iir^ 

1720 OPEN "0" i-Sj "MINV" »DJ 

-1-730 - 1 NF'UT - fr7"rD7 

1740 PRINT#5i-D7 



1750 IF-E0FC7)- THEN---1-790 

1760 I NPUI #7 , E 1 * >■ W2 !■ V i. E* !■ U !■ S y P >■ S5 y D 1 ? D2 ? N y P 1 

-^770--piTiNTf5TETTr'nr-TW2r(7TErr-T-'-roTSti=^rsert^^ 

1780 GOTO 1750 

--j-790-F7-=0 

1800 CLOSE 

--tSlO-RETURN -- 

1820 IF F9=l THEN GOSUB 1710 _____ 

^ rBTO-TFrnTrTTrre-^CTlHPCETE-S-THE— TNVEN TORY SEC I 1 ONirr- 

1840 CLOSE 

-"1850 FOR- I = r-"TO 5 " ----- ~ 

1860 PRINT 

— ISTO— Ni;?rT— I" ~ "^ 

1880 1 9== 4 ^ ^ 

— ttr ?0 G0SlTB-^J57ti- ^ ^ 

1900 OPEN "0" f3y "A/R" ?DJ 
-- l-910"-pRTNT'^THE-"ACTr00NT;r-RLT:rErViifBr:Er-&1H:-Cri0N-WTtt Nt:)W BE -CREATED. 

1920 PRINT 
— r930"-pRINT" HOW- MANY "CUSTOMER "ACC-OUN-TS-DO-YOU" HAVE" y -- 

1940 INPUT Dl 



H 

.RUN-.-ACBSl ^ 

HOW HANY DISC DRIVE DO YCfU HAVE ON' VOUR'^SrSTEM'? T - -' 

-M UCC - C OPYRIGHT 1977 - B Y SC IE NTIFIC_R(^S EARTH INST. ** g 

** CROP t ON V TiD. 21114 W "5~ 

EDITED BY - JOHN W. SWAIN 2 



m — 

O 



WELCOME TO THE ACJEiS!. A SYSTEM OF PROGRAMS DESIGNED TO S 

MAINTAIN ALL"0F 'YOUR BOSINiirSS^'RECORlJSi;~B;^^ &^- 

'TiTCB^Sn"RE'TlLT^-CRE7nT0N-n3ECTr0fi7^TT'TiJ^^gNLr-irSO ON ^- 

TO INITIALIZE THE SYSTEM FOR YOUR DATA BASE. IT WILL S 

ASK YOU FOR ALL TTirriilvr7riCCl?B"SfflTrT'0n-TCCYT:iFSURr£<^ zr- 

YO UR BUSI NESS TO THE COMPUTER. g 



JHlS_£iigGFlA^MJlASJEiE£N_BR1J^ SIX FILE CREATION SECTIONS. ol 

AFTER COMPLETION OF EACH SECTIONV YOU WilX^E"^ASKEirWHETHER g^ 

-lEiiJJgjMT TO CON TINUE THE FILE CREATION IN ACBSl AT A LATER o 

TIME. THIS WILL ALLOW YOU CREATE AS MANTTTLl:"£rASrTUrrTT?roF~ ~ ^ 

TI ME. IN THE MERCHAN_DIS£ J_NVENTQRY SECTION y BECAUSE OF THE SIZF 

OF THE FILE, YOU WILL 1(E ALLO'WErr^TTrT;F^T:rfFY"~TFIl'^'ND>iB"ER~DF 

ITE MS YOU WISH TO E NTE R IN A SESSION. 

******** — ^^^ -— 



THIS IS THE P AYROLL STORAGE S ECTION. IT IS USED TO 

CREATE THE FILE 'pAY~ sEi^RATrTrMJFrTN^nrr"¥rnTTrxiiHffi^ 

HOW HANY E MP LOYEES ARE ON YOUR PAY ROLL? 3 

HOW MANY HOTJRS ARE IN A PAYROLL PrRrorrTTTr ^^OTSOTlTClTP^Tro 

JJHAJ_IS YCUJR STAT_E Uh[EMPLOYMENT TAX RATE ftS A % (5.85)'i' 'T~ 

ENTER YOUR EMPLOYeE iNFORMffnOIT'rN'T'HrT'aiOJWTNG ""^"^^ 

ORDER F OR EACH EMPLOYEE. EACH ENTRY MU ST BE SEPERATED 

from the next with a 'comma' ******** 

emf;loy_ee # _ 

"soc I aL ^secur I tY'¥ 

NAME (INITIALS? LAST NAME IE. J.W. SWAIN) 

STREET 'ADDRESS " ' 

CITY, SJATE^ (IE; CROFTONy MD.) 
ZIP CO'DE (IE'. 21114) 
RATE OF PAY ($/HR,) 

# OF DEPENDENTS "(ir'MMRIEir ADD" 'i()0 'TO THIS NUMBER 

lEJ 2 DEP. 8 MARRIED = 102 ) 

* DEDUCTIONS (INS, ETC.) ^ -- ^ - ■ 

-* MSCj__DEru 

GROSS PAY '( YR . TO DATE ) 

rO TAL PICA (YR. TO DATE) 

TlJtAL FETiERAL^TAXES <: YR . ^TO^^DATE ) ' ^ - 

TOTAL^^STATE TAXES TO JCiATE 

GROSS PAY SINCE LASt^ Pit '"^ — 

Jl^IftkJLMES PAID ON EMPLOYEE DUR ING THIS PERIOD (SINCE LAST P8L 
WAS RUN). ' 

WAGES^ TP[i:S^QUARTJZ_R _ 

TOTAL TiCA' THIS" QUARTER""" "^"^ ^ 

■.TOTAL FEDERAL TAXES THIS QUARTER (LESS PICA). 



NOW TYP E THI S IN F OR THE FIR ST EMPLOYEE AS SET OUT ABOVE 

? A3721, 339-2^-4096, J. M. DO YLE, 181 WEST ST . , VtALTimmVWini'TrmoV^'lWTrTTyTSWVrirA? 
91.2, 397 . 20 ,1358 . 24 , 407 .46,1131.87, 360 . 50 , 3395 . 60 , 198 . 64 , 679 , .^. . 12 ' 

** JNTER;^ THE DATA^FOR^YOUR NEXT EMPLOYEE ** ^ nmMsths, 

? 66219, 224-16-3209, G.R.' CRAMER , P. Or BQ)(''6377BALT.7Rirry 21:r95,T.T7B871Q3^-5.^92 ,0 , ? 
Z£iSL. 94,8 I 93 . 38 , '^95 ■ 05 6 ■. I 9R , '-^4 ■■ 55n.^'2gjLJ-6jL._Afud.A5::L..gZ^S6 . 69 , 297 . r,:^ 



j^^* El^TER^rHE„DATA FOR Y 01)11 NEXL EM FiOYEE 
? A 1 97 2 » 1 1 8 - 1 9 - 5 A 2 v P H 1 L H . J c") H N S N >■ 3 94 1 



tt 

WASHINGTON 



AVE . y UASI-IINGTQN>D, 



38 ? 1 y 6 . la y Q y 4555 > 2 > 266 , 46 y 1QQ2 



. 1 4 y 273 . 3 y 759 , 2 y 256 . 98 y 2277 » 6 y 133 . 23 y 501 . 07 



C>y2Q8:l,3y^?- 
en 



THAT FINI SHES TH E EMPLOYE E DATA... 



X 

< 

bJ 

u 



DO YOU WISH TO DO THE NEX'I 



^SECTION AT THIS TIME 



"ENTER (YES OR NO)? YES 
N UniE _ I N ME N T O^r;; Y_Ii A T A 

Tf WILrBE"^ DONE ^" in" TWO 
IJ E M il_ W I L L JL E „I N P U I 
ETCt ) , THEN THE MEf 
HOW MANY DIFFERENT 



WIL_L BjE 

PARTS- FIRST 

(SUCH AS DESKSy _ 

CHANDISE WlLL BE 

ITEMS DO YOU HAUE 



the'ncJn-saleable^ 

TYPEWRITERS y CHAIRS y 



entered, 
in the non- 



SALEABLE INVENTORY (FIXED ASSETS)? 6 



ENTER 
ENTRY 



THE DATA IN THE 
WITH A COMMA) . 



FOLLOWING F"t)RMAT ("SEPERATE EACH 



-T=- 

z 

Ui 
t/5 






■JZ 
.JSL. 



>- 
-XL- 



ITEM i 
BRIEF 



DESCRIPTION (20 LETTERS OR LESS) 



COST IN * 

SALVAjJE VALUE IN $ 
'ilTFEriN"" YEARS 

YEAR ACQUIRED 

TiONTH "(IN'THAT Y'EAF 

TYPE OF DEPREC. (1- 



o 

3 



7'~PUT INTCT 
ST. LINEy 



"SFR'VTUE'^T^K?"^"" 
?-DOUB. DECLINE. 



BAL. y 



3-SUM OF THE YR . DIGITS y A-'/. 
TOTAL DEPRECIATION AS OF LAST P8L 



DECLINING BALANCE ( %>3 ) 



"y'OU M'AY lump similar items TOGETHER 



NOW'TYPEriN YOUR DATA 
NINE VARIABLES. START 



^ACtTOluriNiritrTHE~ABOVt FORMAT 1-'0R"~THE" 
EACH ITEM ON A NEW LINE. 



T"'S^7^!m"::EliRNTTURE^ 923B ;i. 6 y III 5 ylQy 1973 y4yiy 3725. 29 
? A3876 y TRUCK y 5236 . 84 y 560 y 5 y 1 976 y 2 y 2 y 2087 . 49 

? 1 96721 y TEST EQUIP . y 17236 . 12 y 827 . 19 y 10 y 1975 y 3 y_150 y 4808 . 04 
? n6398 y TRADE FAI R PROPS . y 923 . 1 8 y 5 y 4 y 1 977 y 1 y 3 y 579 . 9 
? D165 y BUILDING y 40000 y 12315 y 20 y 1972. 1 1 y 1 . y 6229 . 13 
? D190 y OFF . EQUIP . y 5977 . MfJ^BS^O y 1 9 7j4_y 9 y 2 y 2486 .61 ^ 

THIS COMPLETES THE EQUIPMENT INVENTORY PART. 
DO YOU WISH TO DO THE'NEXT SECTION AT THIS TIME 
ENTER (YES OR NO)?_iiQ_ 
BREAK IN 3650 

* 



J^UN _^ 
**1JCC 
** 
EDITED BY 



COPTR'IGHT 19 77' 



^BY~sirnrNnTTr^Fft'sisiwcH- TNBTr"3i(* 

CROFTONy MD. 21114 ** 



"^-TJOHN W,"SW'ArN^ 



WELCOME TO THE ACBS. 
M_AINJAIN ALL OF YOUR_ 

THIS IS THE FILE CREATION 



A SYSTEM 'OF PROGl 
BUSINESS RECORDS y 



^■AMSliE SIGNED 
EVEN TAXES. 



TO" 



SECTION y IT IS ONLY USED ONCE 



3250 PRINT "THIS COMPLETEES THE CREATION ROUTINES. NOW THE SIX DATA" 
3260 PRINT "FILES CONTAIN ENOUGH INFORMATION TO KEEP TRACK OF AND" 

3270 pRTRypREP'fiT^ErTcroR" FiNA'Rcrfii:"5T?rrEnEfrre", — rHE-MffrN-pROGRwrr-WTt.:!::-" ■£- 

3280 PRINT"UPDATE ALL. OF THIS DATA AS IT CHANGES AUTOMATICALLY," \^ 

~:S29Q^'RIWr' TFITS^TIRTVER^T'ROORAH- trATf■^O^Itn^BE- mrrraNCE-r -IF - YOrr TRY *• — ^ ^ g- 

3300 PRINT"TO RUN IT AGAINy IT WILL STOP. IF YOU MUST RERUN ITir YOU" 3; 

3310 F'T^TRT'FnX-ITiTO E-Tir-LMF I Y ALL BTX-OF~TFrEBE-FTt:ES-A ND -START-ft G ATK 7 - • -g- 

3320 CLOSE <, 

"~333'0'''F0R'r=I'"TO^'5' «- 

3340 PRINT a 

' SSSO-'-NEXr-I -■■- - ^ - "- - X3 

33A0 PRINT "THANK YOU FOR YOUR KIND HELP ■- NOW THE FILES CONTAIN ENOUGH" C 

-"337tr pRrirr'iri^rir-FaR-~'"m;Kr''~r(ri^Ei^TRAt:it-o RECOKiMij-FOK- you-t--" P- 

3380 for 1=1 TO 10 g 

""1339i0"PRINT - ' -u^ 

3400 NEXT I "^ 

•^34I0"-ST0P-^^ — fE-- 

3420 IF 17=0 THEN 1340 & 

3430 0PEir~'.r' 'nT'nuiVTVJ ' — - — ' '^- 

3440 OPEN " " y 5 s. " SCR " y D J fe 

""■345a"TNPUT»7>El " ^- - ^S ' 

3460 PRINT#5?E1 ^ 

-347O--IF -EOF C?) -THEN 35-rO - "^- 

3480 INPUT#7 y El * y W v U y E$ y U y S y P y S5 y D 1 y D2 y N y P 1 " 



3500 G0T03470 3 



-'351'0- F9=t 

3520 PRINT°Y0U HAME ENTERED » y 17 5 " ITEMS TO THIS POINT. YOUR LAST ITEM" 

-3530- PRINT "-ENTER-EEr WAS- ITEtf- *"-y El* J-'t- CLASS -f^-y F:t:X H W-F [X ( W > ) *10000+-v6 > 5 "-t -V>ENI>0- 
R # " y M 

-32r4-on=T^iTrnroo^NGtr-fffiVEr*t-ET:^-i;'r'^,rTEMH^^ 

3550 PRINT "CONTINUE ENTERING THE DATA IN THE FILE" 



-3tr6'0-~GGT0— r4'3tr 

3570 PRINT 'DO YOU WISH TO DO THE NEXT SECTION AT THIS TIME' 

-:3SS0--PR-I'NT *ENT ER --(Y E S^OR-1^ Or»-y - 

3590 INPUT F$ 

3 500 I F"r EFTrtF^irr)-s-^r "--Tpnrir- Rr ror n — 

3610 CLOSE 
■ 362a--0PEN»fr"Tt r-MIS-C" 

3630 PRINT#lyI9y0yDJ 
-3640- - eLOSE-^E:ND^ 



3650 PRINT "YOU HA^E NOW ENTERED THE NUMBER OF ENTRIES SPECIFIED. 

---i3--6-6-o-i='Riifr-'-Eto-Yott-thist^-^e-ef}hti^miiE— Te--ef'mr^^^ 

3670 PRINT "ENTER (YES OR NO)"? 

---;T680-T-NPUT--Fr 

3690 IF LEFT$<F$yl)=«Y" THEN I7=I-1JG0T0 1430 

3700 "IF~-tEFT$ OFr? 1") - " N"" THEN - 3720 :- 

3710 GOTO 3670 

-^yTso-oRor-nrvtT-'^M-r&tr" ■ 



3730 PRINT#lyI9yI-lyDJ 
-3T4t)- -CtOSE ' - 

3750 GOSUB 1700 
~3-76'<y-^EHB -.. 

3770 IF ERR=53 AND ERL=220 THEN INPUT"HOW HANY DIJC DRIVE DO YOU HAVE ON YOUR SY 
-S^TEM»?1Jcrt-IFIM>lTS-THEN»-RtACE---Yt:Wf^-t^•ROTini^tt-f IN-- 

DRIVE '2'°MNPUT°HIT (CR) WHEN READY TO CONTINUE " ZX* UJNLOAD J MOUNTO : MOUNTl 
-i37S0--l-FERR=53AN-rtERt=:rS20'r-HENGFirftnT"^i'l-y-'^1rSe'^F^R-i:N1*br-l^^ 

3790 ON ERROR GOTO 
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BUSINESS 
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Solentific Research Instruments Co., inc. 

1712 Farmington Court 

Crofton, MD. 21114 

(301) 721-1148 



INVOICE NUMBEBc 
o 

S5 

w 
u 
tr 

o 



PLEASE PAY FROM THIS INVOiig. 
NO STATEMENT RENDERED EXMPT 
BY REQUEST. ^ 



CUST. ORDER NO. 



QUANTITY 



DATE SHIPPED 



QUANTITY 
SHIPPED 



SHIPPED VIA 



SALESMAN 



DESCRIPTION 



UNIT PRICE 



-TON 



INVOICE DATEO 
O 

o 

3- 



AMOUNT 



ACCOUNTS NOT PAID PROMPTLY WILL BE FOHWARDEn FOR COLLECTION. 

1086 



TOTAL AMOUNT DUE 



statement 



date 



account no. 



r 



SeiEiTIFIC RESEARCH 
liSTRUMEMTS CO., liC. 

1712 Farmington Court 

CROFTON, MD. 21114 

(301) 721-1148 

amount paid $ 

thank you: your cancelled 

CHECK IS YOUR RECEIPT. 
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date 


reference 


charges 


credits 
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balance 
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PAY LAST AMOUNT 
IN THIS COLUMN 
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No. 



PAY TO THE 
ORDER OF: 



Scientific Research Instruments Co., Inc. 

PAYROLL ACCOUNT 

1712 Farmington Court, Crofton, Md. 21114 



PAY EXACTLY 



MAIN OFFICE 

THE RIGGS NATIONAL BANK 

WASHINGTON, D.C. 



DOLLARS AND 



CENTS 



DATE 



15-3 I 



■z. 

LU 

o 
tn 

3 



PAY 



Scientific Research Instruments Co., Inc. 

PAYROLL ACCOUNT 



AUTHORIZED SIGNATURE 



THIS IS A 

No. 


STATEMENT OF YOUR EARNINGS AND DEDUCTIONS 
PLEASE DETACH AND RETAIN 




DEDUCTIONS 


PERIOD 3 
ENDING \ 


















^ EMP. NO. 


SALARY 


INSURANCE 




SAVINGS 




DEPT, NO. J 



r 














■ A 


OVERTIME 
OR 


GROSS SALARY 


ADVANCES 


OTHER 
DEDUCTIONS 


F-ED. W.H. 
TAX 


STATE W.H. 
TAX 


F.I~C. A, 


NET PAY 












Scientific 


Research 1 


nstrumeni: 


Co., Inc. 


J 



1089 



FORM 941a 

Depirtmonl of tho Troaiury 
tntsrnal Rsvonuq Service 



CONTINUATION SHEET FOR SCHEDULE A OF FORMS 941, M1-M, 341SS, OR 943 
REPORT OF WAGES TAXABLE UNDER THE FEDERAL INSURANCE CONTRIBUTIONS ACT 



DC 

h- 

■z. 





If this form is used as a confinuafion 
sheet for Form 943, Employer's An 
nuol Tax Return for Agricultural 
Employees, please check here. 



IS) 



NAME OF EMPLOYEE 



SEE INSTRUCTIONS IN PUBLICATION NO. 393 

Attach only original continuation sheets to your tax 
return. Do not send a carbon copy to the interna! Revenue 
Service. 

'A)(Aii.t ripi 



REPORTED 

(S...n..,u..«»l 






TOTAL 
WAGES * 
3;d Th<i Quclrt« 



STATE 

TAXABLE 

WAGES * 



EXCESS WApiEC 
QV£« SIATE ya^T i 



i:-^. 



-fwm 



TOTALS 
FOR THIS 
PACE 



Taxobie wages and taxable fi 




^^ki 



\ 3..2e76063 
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(LEFT BLANK FOR REVISIONS) 
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1092 
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1100 



1101 



1102 



1103 



RELIABLE COMPUTER SOFTWARE 
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FOR YOUR DOWN TO EARTH TASKS 



SCfcNTIFIC RESEARCH INST. 



Key Biscayne, Florida 



BASIC SOFTWARE LIBRARY 



